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ABSTRACT 


Heat sinks consisting of individual fins and arrays of fins are used 
extensively throughout the Navy and industry. The fins serve to increase the 
surface area thorough which heat is transferred to the surrounding 
environment by natural convection. Extended surfaces or fins are commonly 
found on electronic components ranging from power supplies to transformers. 
The dissipation and subsequent rejection of potentially destructive self 
produced heat is an important aspect of electronic equipment design. 

Fin design theory is examined starting with the optimization of individual 
fin dimensions. The insights obtained are utilized in an investigation of the 
optimal number and spacing of elements in an array of fins. The results are 
implemented in a computer program written in ADA and compiled for use on 
IBM compatible machines. The program takes as inputs thermal and physical 
data and outputs an optimized fin configuration. Menu driven, the program is 
easily employed without any amplifying documentation. The program serves 
to greatly simplify and accelerate the fin design process and should be an 
invaluable tool to electronic component designers, especially those with a 


limited background in heat transfer and fin optimization theory. 
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I. INTRODUCTION 


Convection is the transfer of energy from a heat source to a cooler 


surrounding fluid due to the motion of the fluid. The rate of heat transfer by 


convection, q., is governed by Newton's Law of Cooling which is 

q. = hA,(T -T,) elo 
where h is the coefficient of heat transfer in convection, A, is the surface area, 
T is the fin temperature at position x, and J_ is the ambient temperature. One 


method of increasing q. is to increase h by going from natural to forced 


convection. Natural convection is a phenomenon in which the fluid motion is 
induced by differences in buoyancy and density between parcels of fluid at the 
confining surface and within the bulk of the fluid. Forced convection occurs 
when the fluid motion is induced or forced by a fan, pump, or blower. Because 
the addition of a fan or pump may increase operating costs, background noise, 
and component size, forced convection is often undesirable. An alternative 
method of increasing q, is to increase A, by adding extended surfaces or fins. 
[Ref. l:pp. 114-119] 

In the design of electronic components, the disadvantages of forced 
convection often lead to the use of natural convection and fins to dissipate 
potentially destructive component produced heat. Fin design and optimization 
in a natural convective environment is the subject of this work. 

Fin design theory may be examined by beginning with the single fin 
problem. The temperature profile differential equation can be developed for 


arbitrarily shaped fins and subsequently applied to fins of constant cross- 


sectional area. The temperature distribution, fin tip temperature, heat 
dissipation, and fin efficiency equations are all derived here and the equations 
are then applied to the cylindrical spine and rectangular fin, which are two 
commonly employed fin designs. 

Single fin optimization theory is explored for the cylindrical spine and 
rectangular fin. Two separate situations are examined. First, for a given 
volume or quantity of material, the fin dimensions can be optimized to 
maximize the heat transfer rate. Second, for a given heat transfer rate, the fin 
dimensions can be provided which will minimize the volume of material 
required. | 

Multiple fin heat transfer and optimization theories can also be developed 
for an array of symmetric isothermal rectangular fins. Here too, the equation 
for the heat dissipation can be derived. This leads to an optimization where 
the number and spacing of fins can be provided to give the maximum heat 
transfer rate from a wall of given dimensions. In addition, the number and 
spacing of fins can be optimized to maximize the heat transfer rate from each 
fin on a wall of given dimensions. 

The single and multiple fin heat transfer and optimization equations are 
implemented in a computer program written in ADA and compiled for use on 
IBM compatible machines. The emphasis of the program is on ease of use. The 
program is menu driven and does not require any amplifying documentation. 
Knowledge of heat transfer theory is not required. When faced with a fin 
optimization problem, an electronic component designer is no longer forced to 
choose between conducting laborious heat transfer calculations or resorting to 


trial and error. 


The computer program is illustrated by means of an actual fin array 
design problem. The increase in heat transfer rate resulting from a staggering 
of fin arrays, without any increase in materials or wall placement area, is also 


demonstrated. 


II. SINGLE FIN HEAT TRANSFER THEORY 


A. INTRODUCTION 


In order to make the mathematical analysis of extended surfaces 
tractable, Murray [Ref. 2:p. A78] and Gardner [Ref. 3:p. 621] proposed several 
limiting assumptions. These are: 


(1) The heat flow and temperature distribution throughout the fin are 
independent of time i.e., the heat flow is steady. 

(2) The fin material is homogeneous and isotropic. 

(3) There are no heat sources in the fin itself. 

(4) The heat flow to or from the fin surface at any point is directly 
proportional to the temperature difference between the surface at 
that point and the surrounding fluid. 

(5) The thermal conductivity of the fin is constant. 

(6) The heat transfer coefficient is the same over all the fin surface. 

(7) The temperature of the surrounding fluid is uniform. 

(8) The temperature of the base of the fin is uniform. 

(9) The thickness is so small compared to its height that temperature 
gradients normal to the surface may be neglected. 

(10) The heat transferred through the outermost edge of the fin is 
negligible compared to that passing through the sides. 


These assumptions serve to narrow the scope of the extended surface problem 


and are applicable in the analysis that follows. [Ref. 3:p. 324] 


B. ARBITRARILY SHAPED FINS 
1. Temperature Profile Differential Equation 
Figure 2-1 is an example of an arbitrarily shaped fin of height Bb, 


differential surface area dA,, and varying cross-sectional area A(x). The Fourier 


and Newton Laws are used to derive the differential equation for the 


temperature profile of the fin shown in Figure 2-1. As fins are generally thin, b 
is assumed to be much greater than r. Although the fin temperature varices 
with rand x, the radial variation is small and assumed to be negligible. [Ref. 


l:pp. 117-118] 





Control Volume 






Figure 2-1. Arbitrarily Shaped Fin of Varying Cross-Sectional Area 


In Figure 2-1, Heat enters the control volume by conduction at a rate 


of g(x) and exits at a rate of g(x + dx). Heat is dissipated by convection through 
dA, ata rate of dq.. [Ref. 1:p. 118] 
Ignoring radiation and assuming no internal heat generation, the 
heat balance energy equation for the control volume can be written as 
q(x) = q(x + dx) + dq, (2-1) 


Substituting for g(x+dx) 





dq(x) 
ax 


Gia (a) + ax) 1 OU), (222) 


and simplifying yields 


mae da. (2-3) 
dx 
Fourier’s Law can be expressed as 
q(x) = -kA(x) 22 (2-4) 
dx 


where k is the thermal conductivity of the fin material and dT/dx is the 


temperature gradient. Differentiating Equation 2-4 with respect to x gives 





dq(x) 
oe =F atx | (2-5) 


Newton's Law of Cooling can be written as 


dq. = hdA,(T -T.) , (2-6) 


Substituting Equations 2-5 and 2-6 into Equation 2-3 gives 

















d aT 
Belt h : 
KL ( Avo Jax = dA (T -T.) (2-7) 
Then, differentiating and dividing both sides by kdx provides 
dA(x) dT a’T _ hada, 
oe ae ka atid 
so that a simplification then gives 
2 
a°T 1 dA(x) aT h $(T-T.)=0 (2-9) 


+ ——_ —— 
x? A(x) dx dx KA(x) dx 
Equation 2-9 is the temperature profile differential equation for an arbitrarily 


shaped fin of varying cross-sectional area. [Ref. l:pp. 118-119] 


2. Temperature Distribution Equation 


A general solution to Equation 2-9, is found for a fin with constant 


cross-sectional area, A. Uniform cross-sectional area means that A(xX)=A (a 


constant) and permits the simplification 


AA(x) _ 
“a= we 


and with this in Equation 2-9, the result is 


aT _h dA, 
dx* kA dx 





(T-T,)=0 


If the surface area is expressed in terms of the perimeter, P 
dAS—hax 


a substitution into Equation 2-11 yields 


ie A 

and if a change of variables 

G=T-T. 
is made, then 

f= 6-1- 

aT _ do 

dx dx 
and 

aT _ do 

ax Gaxs 


Use of these permits Equation 2-13 to be written as 


d*e® hp 
—— 00 
dx’ kA 


and if the parameter, ™, is introduced 


(2-1 


(2-11) 


(2-1 


(2- ay 


(2-14) 


(2-15) 


(2-16) 


(2-19 


(2-18) 


2 [hP 
i LA 28), 


then Equation 2-18 can be written as 


Z 
<< —me=0 (220) 


The general solution to Equation 2-20 is 
6 = C, cosh(mx) +C, sinh(mx) (2221) 
where the arbitrary constants, C, and C,, are evaluated from the boundary 


conditions 
e At position X=0, T=T,, and 0, =T,, -T, 


e At position x=b, aT _9 ane ee O 
dx dx 


where 7), is the wall temperature. The second boundary condition is based on 
the earlier assumption that b is much greater than r so that the surface area at 
the fin tip is very small and that the heat dissipated at the tip is negligible. The 
heat convected away from the surface area at the tip of the fin is considered 
negligible. Applying the first boundary condition to Equation 2-21 yields 

6, =¢C,-14+C,-0 (2-22) 
so that 

C, =6, (2-23) 

Then, a differentiation of Equation 2-21 gives 


- = 6, msinh(mx) + Csmcosh(mx) (2-24) 


so that employment of the second boundary condition provides 


0 = 6, msinh(mb) + C,mcosh(mb) (2-25) 


and hence 


ae 8, sinh(mb) oom 
* ~~ cosh(nb) 


After substitution for C, and C,, Equation 2-21 becomes 


9g cosh(mb)cosh(mx) — sinh(mb) sinh(mx) 
SS Tro (2-27 
Q cosh(mb) 


Ww 


Using a hyperbolic function identity in Equation 2-27 allows the representation 


calf) 


9 cosh(mb) 


w 


(22235) 


and returning to 0, =T7) -T, 


(Teale) cosh : *) 


; ee 
a cosh(mb) 


(2-25) 


Equation 2-29 gives the temperature profile for a fin of constant cross-sectional 
area. The temperature at any position x along the fin can be calculated using 
Equation 2-29. [Ref. l:pp. 120-123] 
3. Fin Tip Temperature Equation 
Often, a value of interest is the temperature at the tip of the fin, die 


Substituting X = b into Equation 2-29 gives 


(ese (7, = 7.) (2-30) 
up “=~ cosh(mb) 


Equation 2-30 is the equation for the fin tip temperature for a fin of constant 


cross-sectional area. [Ref. l:pp. 145-146] 


4. Heat Dissipation Equation 


The heat dissipation equation for a fin of constant cross-sectional 


area is derived using Fourier's Law and Equation 2-27. From Fourier's Law, 


- q= kag --1® 


Differentiation of Equation 2-27 yields 





X|.<0 


de 9,,|mcosh(mb) sinh(mx) - msinh(mb) cosh(mx)] 
ax cosh(mb) 


and this may be put into Equation 2-31 to obtain 


kA@,,[m cosh(mb)sinh(mx) — msinh(mb) cosh(mx)| 


a cosh(mb) 
x=0 
A simplification then yields 
kA@,,| msinh(mb)| 
aS cosh(mb) 


and substituting for 0, gives 


q =kAm(T,, — T_) tanh(mb) 


Equation 2-35 is the heat dissipation equation for a fin of constant cross- 


sectional area. [Ref. l:p. 123] 


5. Fin Efficiency 


(228511) 


E234) 


23) 


(2-34) 


(2-35) 


A common parameter employed in the design of finned surfaces is 


the fin efficiency, n. The definition of 7 is the actual heat dissipated by the fin 


divided by that which would be dissipated if the fin operated throughout at the 


wall temperature. If Equation 2-35, which gives the actual dissipation, is 


10 


divided by Newton's Law of Cooling, which gives the ideal dissipation, the 


result is 
_ kAm(T,, — T,)tanh(mb) 
hA,(T,, -T.) 
Hence 
_ kAmtanh(mb) 
lS Sane 
and 
_ kAn? tanh(mb) 
7 mhA, 
and with n1° = hP/kA by Equation 2-19 
_ kAhP tanh(mb) 
~ kAmhA, 


Ehus 


_ Ptanh(mb) 
nA, 


(2-36) 


(2-37) 


(2-38) 


(2-32) 


(2-40) 


But A, = Pb, and this simplification gives the final expression for the fin of 


constant cross-section. 


tanh(mb) 


mb 


(2-41) 


Equation 2-41 provides the efficiency of a fin with constant cross-sectional 


area. [Ref. l:p. 125] 
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C. SPECIFIC FIN CONFIGURATIONS 
1. Cylindrical Spine 
As shown in Figure 2-2, a cylindrical spine is essentially a bar of 
height b and diameter d attached to the surface to be cooled. As the fin has a 


constant cross-sectional area, the equations derived in the previous section 


apply to the cylindrical spine. [Ref. l:p. 120] 


> 


oa 


Figure 2-2. Cylindrical Spine 


For the cylindrical spine, the perimeter and area are written as 





P=nd (2-42) 
and 
nd? 
A= 2-43 
1 ( ) 


Hence, Equation 2-19 becomes 


2 


[4h 
= |/ == 2-44 
m = ( ) 


2. Longitudinal Fin of Rectangular Profile 
A commonly encountered fin configuration is that of the 
longitudinal fin of rectangular profile. Figure 2-3 is an example of a 


rectangular fin of height b, length L, and width 6. The equations derived for 
fins of constant cross-sectional area are applicable to the rectangular fin 


configuration. [Ref. l:p. 120] 


ig 
5 
i. 


oe b 


Figure 2-3. Rectangular Fin 


For the longitudinal fin of rectangular profile, the perimeter and area 


are 


is 


P= 202k (2-45) 
and 
A=I16 (2-46) 
As rectangular fins are traditionally thin, the following simplification is made 
[Ref. l:p. 137]. 
jee al (2-47) 


Substituting Equations 2-46 and 2-47 into Equation 2-19 gives 


2h 
-_- |—- Zea 
m re (2-48) 
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Ill. SINGLE FIN OPTIMIZATION THEORY 


A. INTRODUCTION 

Single fin optimization theory can be divided into two categories. In the 
first category the fin shape is known. Two commonly employed fin shapes, the 
cylindrical spine and the rectangular fin, may be examined from two different 
perspectives. Either the dimensions of the fin are optimized to yield the 
maximum heat transfer rate from a given volume or, for a given heat transfer 
rate, the fin dimensions are optimized to minimize the required volume of 
material. The second category is based on the determination of an optimal fin 
shape. Fin shapes are found which minimize the volume of material required 
to obtain a given heat transfer rate. Curved fins are commonly produced in the 
shape optimization problem. As curved fins are difficult and expensive to 
manufacture, the shape optimization problem will not be addressed. [Ref. 5:p. 


155] 


B. CYLINDRICAL SPINE 
1. Maximum Heat Transfer for a Given Volume 


Substituting Equations 2-43 and 2-44 into Equation 2-35 yields 


aE 
= k—— ”Z i. =P) ant |) (3-1) 


Ls 


4h 
B=b Te (3-2) 


then 


eee ate) 
| o 


7 panbis (3-3) 


and for a cylinder of volume V 








nab 
Ve 3-4 
7 (3-4) 
and 
4V 
Di 3-5 
ae: (23) 
or 
4V 
b=. |——— 3-6 
= (3-6) 
Substituting Equation 3-5 into Equation 3-3 yields 
eel ie 38 | 
= | ———_————- |B tanh -7 
WAG. i (B) (3-7) 


Then, taking the derivative with respect to d, simplifying, and setting it equal 
to zero leads to the following transcendental equation. 
108 = 3sinh(28) (3-8) 
with a solution which can be determined by trial and error 
B= 0.9193 (3-9) 


Substitution of this value of B into Equation 3-2 produces 


0.9193 =b eal (3-10) 


- 
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Expressing b by Equation 3-5 gives 


4V {4h 
0.9193 =—>,]— 
" td* \kd 


Hence, the optimized value for the diameter, d, 1S 





2 UE 
dy, = 1.503 (Be ) 


and substitution of Equation 3-6 into Equation 3-10 yields 






4h 
V2 
4V 
(| 


Thus, the optimized value for the height, b, 1s 


O91s 7 


5 
Vke 
te = 0.3636 Ye | 


(3-1e 


(3- i 


(3-13) 


(3-14) 


Equations 3-12 and 3-14 specify the optimal dimensions of a cylindrical spine 


to achieve the maximum heat transfer rate for a given volume. [Ref. 5:p. 158] 


Zi Minimum Volume for a Given Heat Transfer 


Solve Equation 3-10 for b 


= 0.9193, |=“ 
4h 


and then substitute Equations 3-15 and 3-9 into Equation 3-3 to obtain 


knd?(T., -T.) 


q =| = Orso aitani(Onomee) 


kd 


onlog 
4(0.9193) 77 


Mey. 


(3-15) 


(3-16) 


Hence 


q° : 
d,, = 0.9165] + (a 
hk(T, -T.) 


aD 


The solution of the transcendental, Equation 3-10, is for d 


2 
4 __4hb rere 


k(0.9193)° 


and substituting Equations 3-18 and 3-9 into Equation 3-3 yields 


= a ees pals tanh(0.9193) (3-19) 
Thus 
k \ 
Day = 0.00 es (3-20) 


Equations 3-17 and 3-20 specify the optimal dimensions of a cylindrical spine 


to achieve the minimum volume for a given heat transfer rate. [Ref. 5:p. 158] 


C. RECTANGULAR FIN 
1. Maximum Heat Transfer for a Given Volume and Length 


Substituting Equations 2-46 and 2-48 into Equation 2-35 gives 
2h 2h 
= k6L,j—(T,, —T_)t b,j|— 3-21 
4 = WSL Ts (Te rane fe en 


Vi = ala, (3-22) 


For a rectangular fin 
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or 


pees 
6L 
and 
VA 
6 =— 
bL 


Substituting Equation 3-23 into Equation 3-21 yields 


2h v_ [2h 
Los anh| [oe 
4 = RL 75 Ue — T_)tanly | 


and, once more, making a change of variables 


_V [2h 
~ LVS 


gives 


q= KL] er, _ T.)tanh(U) 


(3-25) 


(3-24) 


(3-25) 


(3-26) 


(3-27) 


Taking the derivative with respect to 6, simplifying, and setting the result equal 


to zero, yields the transcendental equation 


6U = sinh(2U) 
A trial and error solution gives 


U =1.4192 


and substituting this result into Equation 3-26 gives 


V [2h 
1.4192 =—,/— 
L V k8° 


This shows that the optimized value for the width, 6, is 


U8, 


(3-2a) 


(3-29) 


(3-30) 








21, 143 
5, = 0,997] (3-31) 
Substituting Equation 3-24 into Equation 3-30 yields 
ao (3-32) 
and 
1/3 
Oe Oe ba (3-33) 


Equations 3-31 and 3-33 specify the optimal dimensions of a rectangular fin to 
achieve the maximum heat transfer rate for a given volume and length. [Ref. 
Bp. 156] 

2. Minimum Volume for a Given Heat Transfer and Length 


Substituting Equation 3-29 into Equation 3-27 gives 
2h 
gq =kKsL Ts Im ~T_)tanh(1.4192) (3-34) 


and from this the optimum 6 is obtained 


2 
0.6321 gq 
= ————, 3-30 
om Hk pets] si 





Then, substituting Equation 3-24 into Equation 3-35 yields 


2 
OEP 
—= —_—_— OO 3-36 
bL hk a] Ee) 





and solving Equation 3-33 for V provides 
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3 
V= we (3-39) 
(1.0023)’k 


Then, substituting this result into Equation 3-36 produces 





bLh _ 0.6321( q ) oa 
(1.0023) kbL hk \ LT, -T.) 
and the optimum value of the fin height, bis 
b= 0.07 ——— (3-39) 


LH(T, -T.) 
Equations 3-35 and 3-39 specify the optimal dimensions of’a rectangular fin to 


achieve the minimum volume for a given heat transfer rate and length. [Ref. 


Dil) 


Zi 


IV. MULTIPLE FIN HEAT TRANSFER THEORY 


A. INTRODUCTION 


In their 1984 landmark paper, Bar-Cohen and Rohsenow described the 


heat transfer and optimization equations for an array of rectangular fins. 


However, they did not provide a design procedure with which to use their data 


to formulate optimum arrays. [Ref. 6:pp. 116-123] 


B. ARRAY OF RECTANGULAR FINS 


]. 


Heat Dissipation Equation 


In Figure 4-1, adjacent fins form a channel. The channel Rayleigh 


number, Ra’ is defined as 


where 


1 Dagueez (ae a T.) 
7 Lk, 


Ra 
p =density of the surrounding fluid, kg/m3 
g = gravitational acceleration, m/s 


8B = volumetric coefficient of thermal expansion, 1/°K 


Cc, = specific heat of the surrounding fluid, J/kg°C 


Z =clear spacing, m 
I}, = wall temperature, °C 
T.. = ambient temperature, °C 


u = dynamic viscosity of the surrounding fluid, kg/mes 


oe 


(4-1) 


e £ =fin leneth) im 


¢ k, = thermal conductivity of the surrounding fluid, W/m°C 


5, —— 


| 





—_ ay 


Figure 4-1. Array of Rectangular Fins 


The volumetric coefficient of thermal expansion is 


] 


= (4-2) 
Tn + 460°R 


B 


or, in SI units 


] 


= Sas Sar (4-3) 
To, + 2 (eee 


B 
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where 





T+. 
Tag = 5 (4-4) 
The dynamic viscosity is 
Vv 
w= (4-5) 
9, 


where v is the kinematic viscosity of the surrounding fluid and 











Ibm.- ft 
= 32.2 ———— 4-6 
” Ibf -s" me 
or, in SI units 
ko-m 
— IG 4-7 
9. N . s¢ ( ) 
If the fins are assumed to be symmetric and isothermal 
= 
7 O7 
aa Lee oe (4.8) 
(Ra') vRa 


where Nu, is the channel Nusselt number. Thus, the heat transfer coefficient 


is for n fins attached to the wall 


y = Mok, 
Zi 


(4-9) 


For a rectangular fin, the parameter m is given by Equation 2-48. The fin 
efficiency, nN, is given by Equation 2-4]. The surface area of the wall that is 


open for heat transfer, A,, is 


A, =(L,8,)~ (nd) (4-10) 
and the combined heat transfer area for all fins, A,,,,, is 
A = illaye) (4-11) 
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Hence, the total area available for heat transfer, A,,,,,, is 
ya = Bh, - (MA ins ) : (4a 


and according to Newton's Law of Cooling 
Q = Awa (Ty — T.) (4-13) 


Equation 4-13 is the heat dissipation equation for an array of symmetric, 


isothermal rectangular fins. [Ref. 6:pp. 116-119] 
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V. MULTIPLE FIN OPTIMIZATION THEORY 


A. ARRAY OF RECTANGULAR FINS 
1. Maximum Heat Transfer for a Given Wall Area 
In an array of symmetric, isothermal rectangular fins, the heat 
transfer rate of cach fin decreases as fin spacing decreases. Yet, a reduction in 
fin spacing allows for a greater number of fins to be placed on a wall of given 
dimensions. An optimal fin spacing exists which maximizes the heat transfer 


rate for a given wall area. [Ref. 6:p. 120] 


As the wall will be fully populated with fins to maximize q, Ag,,, is 
assumed to be much greater than A,. Replacing A,,,, in Equation 4-13 with 
Bans: 

q = hAg,s(T,, — T.) (5-1) 
and substitution of this into Equations 4-9 and 4-11 gives 


g= oA Navi yr, - 7.) 5-2) 


To fully populate the wall with fins 


— oF 


es) (5-3) 


The value obtained for N from Equation 5-3 must be truncated to produce an 
integral number of fins. Substitution of Equations 4-8 and 5-3 into Equation 5- 


2 gives 
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-/2 
2/0 +S) ks, (2b ee 
(Ra’) Ra’ } 
dS Zia Omg 
and then making a change of variables, 
' o*@hec (TT. -T. 
P= a = pgBe, (7, - T.) (5-5) 
Z Lk, 
one obtains 
576 2.873] 
Ee + J Pz? | k5y (2bL)(T,, = ie) 
= (5-6) 
z(z +8) 
or 
q 1 
Sh | (5-7) 
2k,-5,,bL(T,, — T.) z(z+8) 576 , 2873 vb 
P’z* Pz 


Taking the derivative dq/dz, simplifying, and then setting the result equal to 
Zero gives 

2z +35-0.005P**z’ =0 (5-8) 
If the width is assumed to be negligible, 


_ 2.714 


Lope = pve (5-9) 


Equation 5-9 gives the optimal fin spacing to maximize the heat transfer rate 


for a wall of given dimensions. [Ref. 6:p. 120] 


"ATE 


2. Maximum Heat Transfer from Each Fin 
It is often desired to maximize the heat transfer rate from each fin 
in an array of symmetric, isothermal rectangular fins. Although an infinite fin 
spacing is theoretically required, setting Nu, equal to 99% of the isolated fin 
value leads to 


_ 4.64 


Z st 
max p¥ 


(5-10) 
Equation 5-10 gives the optimal fin spacing to maximize the heat transfer rate 
from each fin on a wall of given dimensions. Substituting the z,, of Equation 


5-3 provides the value for the maximum number of fins. [Ref. 6:p. 120] 
The value of Z,,,, is approximately double that of the boundary layer 


thicknesses along each of the surfaces at the channel exit. The value Z,, 


coincides with approximately 1.2 boundary layer thicknesses. [Ref. 6:p. 120] 
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VI. COMPUTER PROGRAM DEMONSTRATION 


A. INTRODUCTION 
To provide a demonstration of the computer program, a fin array design 
example involving a wall of given dimensions populated by two different 


arrangements of rectangular fins, is analyzed and the results are compared. 


B. SINGLE NON-STAGGERED FIN ARRAY 
In the first arrangement, the wall is populated by a single, non-staggered 
fin array. The dimensions of the array are shown in Figure 6-1. The computer 


program will optimize fin spacing to maximize the array's heat transfer rate. 


LA 


<a 1 


Zz 
O.2 cm 


20 cm 


Figure 6-1. Single Non-Staggered Fin Array 


a9), 


The program is initiated by the typing the following command at the DOS 
prompt. 
Cavtanopt 


After the introduction and continuation screens, Figure 6-2 is presented. 


2) SI 


Input your selection: [2] 
Press enter to accept default 





Figure 6-2. Unit System Menu 


As the dimensions in Figure 6-] are in centimeters, the enter key (J) is pressed 


to select the SI unit system. Figure 6-3 is shown on the screen. 


1) Single Fin 


2) Multiple Fins 


Input your selection: [2] : 
Press enter to accept default | 





Figure 6-3. Fin Optimization Menu 
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Enter is pressed to select the multiple fin problem. The drawing in Figure 6-4 is 


then shown on the screen. 


Hep sf 


JT tQsadet 


Wall Width 


| | | 
| | rN. OS I\ \ PN | 
ae | \oes [ieee asta = WALL | 
| | | Vea | NaN | saa | 
| | | ~ il \ Wal \ X | 
Teatt | No ae \> | 
ot er \_\ at .\ 
| | | B — | Av Pr | [. a 
| | | I ie el | | | | [> cat 
| | \ N aril | | | | | | 
| | \ | | ee | | | |Length 
| | x | | \ | ee | | | 
2 on oe \ Pe tee elie ‘a || 
\ Xe | \ | Noel | | 
we iT Veal \I | | 
Height \ 
\ | trees | [a 
| Spacing Width 





Figure 6-4. Multiple Fin Drawing 


Figure 6-4 graphically shows the nomenclature for the parameters that will be 


requested by the program so that the optimization and heat transfer 


calculations can be instituted. After pressing any key, the menu in Figure 6-5 is 


displayed. Enter is pressed to choose the third selection listed in the menu. 


aT 


NS 
S 
SS : 


‘., 


Choose Type of Optimization 
1) No Optimization 
2) Maximum heat transfer 


capability from each 
fin In a given area 


3) Maximum heat transfer 

capability for a given 

area 

Input your selection: [3] 
Press enter to accept default 


2.8, 


3 

WINS 

a ., Satay Ss ee Stet 
. SS wo SERRA Se 
‘ S REARS NEESER NARS SASS : 
GW" WSN SSS BN 


SSN SS 





Figure 6-5. Type of Optmization Menu 
Figure 6-6 illustrates the format used for the input of the parameters needed 


by the optimization and heat transfer equations. 


Required Inputs 


All values must be inputted as 


floats. Examples: 5.0 or 2.0E-3 
Do not input 0.8 as 8 !!! 





Length of the fin placement area = 2.0000E+01 cm 
Width of the fin placement area (cm) = 
Press enter to accept default or any other key to enter new value 
New value = 25.0 
Figure 6-6. Request for Inputs 
Once the user has supplied the required inputs, the input-output summary 


screens in Figure 6-7 are presented. 
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= 2.0000E+01 cm 
= 2.5000E+01 cm 


Length of the fin placement area 
Width of the fin placement area 


Length of each fin = 2.0000E+01 cm 
Height of each fin = 5.0000E+00 cm 
Width of each fin = 2.0000E-01 cm 
Density of surrounding fluid = 1.1770E+00 kg/mA3 


Specific heat of surrounding fluid = 1.0057E+03 J/(kg*deg-K) 
Thermal conductivity of material, k = 2.1000E+02 W/(m*deg-K) 
Thermal conductivity of surrounding fluid, k = 2.6240E-02 W/(m*deg-K) 
Kinematic viscosity of surrounding fluid = 1.5680E-05 mA2/s 


Ambient Temperature 
Wall Temperature 








« 







= 2.5000E+01 deg-C 
= 7.5000E+01 deg-C 


: Outputs . 
Heat transferred away by the fins, q = 1.3816E+02 W 
Spacing between fins = 7.0603E-01 cm 
Number of fins = 2.7000E+01 fins 
The fin efficiency = 9.8116E-01 
The temperature at the tip of the fins = 7.3589E+01 deg-C 
Channel Rayleigh number = 5.4255E+01 
Channel Nusselt number = ]1.3066E+00 





Figure 6-7. Input-Output Summary 
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The user can print the summary information in Figure 6-7 by performing a DOS 
screen dump, simultaneously pressing the Shift and Print Screen keys. The 
information can be imported into a word processor for editing by running the 


program under Microsoft Windows and using its clipboard screen capture 


functions [Ref. 7:pp. 248-250]. Pressing any key will produce the drawing in 


Figure 6-8. 
2.5000E+01 cm 
| a a a ea | 
Z| | — _ _ | 
> i ‘Ve IN \ Aes | 
oF | COC lL Se =a: ) AN WALL 
| Ci | be oe | VN | | 
oS | | | \ 2a oN) oN | 
a | | | ‘a Noes ie 
Ee | | | Nome Ne ‘ae 
— | | | F | | | | i | | | 
oO | | | ag | | | | i | | 
| || \ N eee ee ie. | | 
| | \ ae I] || |2.0E+O01cm 
2 J | \ > ie | I \ mil | | 
a \ eee es -\ >| -aaeN | | | 
\ ie | Va | youl | 
\ ie | VI | 
5.0000E+00 cm \ 
\ Sates ens | aa 


| 
| 7.0603E-01 cm 2.0000E-01 cm 
| 
SS SS 
, Press any key to continue 


Figure 6-8. Input-Output Summary Drawing 








The drawing in Figure 6-8 graphically displays the outputs of the optimization 


calculations. 


C. TWO STAGGERED FIN ARRAYS 
In the second arrangement, the wall is populated by two staggered fin 


arrays. The dimensions of the arrays are shown in Figure 6-9. Each array will 
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be dealt with separately. The heat transfer rate for a single array will be 
calculated and doubled to find the total heat transfer rate for the wall of given 


dimensions. 


25 cm a 


20 cm i 10 





10 cm 


a 
kb 


0.2 cm 


Figure 6-9. Two Staggered Fin Arrays 
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1. Same Spacing and Number of Fins 
First, the staggered fin problem is examined using the spacing and 
number of fins found in the previous non-staggered fin example. Pressing any 
key after viewing the drawing in Figure 6-8 results in the continuation menu in 


Figure 6-10. 


Do you wish to continue ? 
1) Exit to DOS 


2) Continue 


Input your selection: [2] 
Press enter to accept default 


Sh Re watatat! Ss , SS WN SEC RK SS 





Figure 6-10. Continuation Menu 


Pressing Enter will allow the user to continue in the program. All the defaults 
are set to the values inputted by the user in the preceding problem to facilitate 
rapid sensitivity analysis. After proceeding through the screens in Figures 6-2, 
6-3, and 6-4, the first item, "No Optimization,” is chosen from the menu in 
Figure 6-5. This option will allow the user to input the fin spacing and number 
of fins rather than conducting an optimization of those values. The 
parameters required by the heat transfer equations are inputted in the format 
demonstrated in Figure 6-6. Once the user has supplied the required inputs, 


the input-output summary screens in Figure 6-1] are presented. 
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Length of the fin placement area 1.0000E+01 cm 
Width of the fin placement area 2.5000E+01 cm 
Length of each fin 1.0000E+01 cm 
Height of each fin 3-OQOOE+00 cm 
Width of each fin 2.0000E-01 cm 
Spacing between fins 7.0603E-01 cm 
Number of fins 2.7000E+01 fins 
Density of surrounding fluid 1.1770E+00 kg/m/3 


1.0057E+03 J/(kg*deg-K) 
2.1000E+02 W/(m*deg-K) 
2.6240E-02 W/(m*deg-k) 
1.5680E-05 m42/s 
2.5000E+01 deg-C 
7.S)000E+01 deg-C 


Specific heat of surrounding fluid 

Thermal conductivity of material, k 

Thermal conductivity of surrounding fluid, k 
Kinematic viscosity of surrounding fluid 
Ambient Temperature 

Wall Temperature 





Heat transferred away by the fins, q = 9.2229E+01 W 
The fin efficiency = 9.7490E-01 

The temperature at the tip of the fins = 7.3120E+01 deg-C 
Channel Rayleigh number = 1.085 1E+02 
Channel Nusselt number = 1.7549E+00 


i wWw0 0 w_q5w®wUocuW4w i 70 
‘\ Press any key to continue : 










Figure 6-11. Input-Output Summary 


The value for the single array heat transfer rate, q, is doubled to obtain d,,,,, for 


the given wall area. 
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Groat = 2(92.229) = 184.46 W (6-1) 


The improvement is 


184.46 -138.16 
138.16 


O70 (6-2) 
and one may conclude that staggering the arrays produces a 33.5% increase in 
the heat transfer rate, without any change in the number of fins, spacing, or 
materials required. Unfortunately the machining required to produce staggered 
fin arrays may be expensive. 
2. Optimization of Spacing and Number of Fins 

The increase in the heat transfer rate shown in Equation 6-2 can be 

further enhanced by optimizing the number of fins and spacing in the 


individual fin arrays. Again the third item is chosen from the menu in Figure 


6-5. The input-output summary screens produced are shown in Figure 6-12. 


The value obtained for q is again doubled to obtain d,,,,, for the given wall 


dimensions. 
Groat = 2(92-944) = 185.89 W (6-3) 
and 
185.89 -138.16 
= 34.5% -4 
138.16 a 
and, in addition 
185.89 -184.46 — 0.775% (6-5) 


184.46 
The percentage increase found in Equation 6-5 is small, since the non-staggered 


array of fins had already been previously optimized. 
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[Inputs => Outputs | 


Inputs => Outputs 
SSS 





OOOOE+01 cm 
SOO0E+01 cm 


Length of the fin placement area 
Width of the fin placement area 


Length of each fin QOOOE+01 cm 
Height of each fin OOOOE+00 cm 
Width of each fin OOOOE-0O1 cm 


Density of surrounding fluid 

Specific heat of surrounding fluid 

Thermal conductivity of material, k 

Thermal conductivity of surrounding fluid, k 
Kinematic viscosity of surrounding fluid 
Ambient Temperature 

Wall Temperature 


iL. 

2 

je 

ay 

Des. 

1.1770E+00 kg/mA3 
1.0057E+03 J/(kg*deg-K) 
2.1000E+02 W/(m*deg-K) 
2.6240E-02 W/(m*deg-K) 
1.5680E-05 mA2/s 
2.5000E+01 deg-C 
7..000E+01 deg-C 





2944F+01 W 
9370E-01 cm 
1O00E+01 fins 


Heat transferred away by the fins, q 9. 
a 
3. 
9.7770E-01 
7: 
5. 
1. 


Spacing between fins 

Number of fins 

The fin efficiency 

The temperature at the tip of the fins 
Channel Rayleigh number 

Channel Nusselt number 


3329E+01 deg-C 
4255E+01 
3066E+00 





Figure 6-12. Input-Output Summary 


ois, 


VII. CONCLUSION 


In the design of electronic equipment, a proper heat sink configuration is 
essential. As the design example in the previous section demonstrates, the 
computer program developed for this thesis can serve to greatly simplify and 
accelerate the fin design process. The program should prove to be valuable tool 
to electronic component designers, especially those with a limited background 
in heat transfer and fin optimization theory. A listing of the source code for 


the computer program is included in the Appendix. 
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APPENDIX 


SOURCE CODE FOR THE COMPUTER PROGRAM 


== Tere : EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS: 
== : A COMPUTER OPTIMIZATION 

=—— SAE iWot : John Reynold Gensure 

-- Date : June 1992 

with TEXT IO, COMMON DISPLAY TYPES, TTY, CURSOR, VIDEO, 


FINOPT _SINGLE, FINOPT _MULTIPLE, FINOPT PICTURES, 
ee) ) Sa a DRAWINGS; 


use TEAT IO, COMMON DISPLAY TYPES, FINOPT SINGLE, FINOPT MULT IEG 


procedure FINOPT is 

PAUSE, CONTINUE, UNITS, FIN SING MULT, FIN CYL RECT, 

PINS OPT 1iP, DEFAULT TREY : 
INTEGER; 


SPACING ENGLISH, DENSITY ENGLISH, SPECIFIC HEAT ENGLISH, 
NU ENGLISH, K FLUID ENGLISH, WALL LENGTH ENGLISH, 

WALL WIDTH ENGLISH, DIAMETER ENGLISH, HEIGHT ENGLISH, 

WIDTH ENGLISH, LENGTH ENGLISH, VOLUME ENGLISH, H ENGLISH, 

K ENGLISH, T AMBIENT ENGLISH, T WALL ENGLISH, Q ENGLISH, 
SPACING SI, DENSITY SI, SPECIFIC HEAT SI, NU SI, 

K FLUID SI, WALL LENGTH SI, WALL WIDTH SI, DIAMETER SI, 

HEIGHT SI, WIDTH SI, LENGTH SI, VOLUME SI, H_SI, K SI, 

T AMBIENT SI, T WALL SI, Q SI, SPACING, DENSITY, 

SPECIFIC HEAT, NU, K FLUID, WALL LENGTH, WALL WIDTH, 

DIAMETER, HEIGHT, WIDTH, LENGTH, VOLUME, H, K, T AMBIENT, 

T WALL, Q, CONVERT _DIST, CONVERT_TEMP, GRAVITY, GC, 

AREA PROFILE, NUM FINS, NUM FINS ENGLISH, NUM FINS SI: FLOAT; 


PI : constant := 3.14159 26535 89793 23846 26433 83279 50288 41972; 
SPACING UNITS, WALL LENGTH UNITS, 
WALL WIDTH UNITS, DIAMETER UNITS, HEIGHT UNITS, 


WIDTH UNITS, LENGTH UNITS ~ 
STRING(1..2); 


VOLUME UNITS, NUM FINS UNITS 
STRING(1..4); 


T UNITS 
STRING(1..5); 


NU_UNITS, Q UNITS 
STRING( 1: .6) ; 


4] 


DENSITY UNITS 
STRING(1..8); 


NUMBER OUT 
SERING(1..10); 


WIDTH MSG, LENGTH MSG, DIAMETER_MSG, 
HEIGHT MSG, SPACING MSG, WALL_LENGTH_MSG, 
WALL WIDTH MSG 

STRING (1..13) ; 


SPECIFIC HEAT UNITS 
EG@RING(1..15); 


K UNITS 
STRING(1..17); 


H UNITS 
STRING(1..19); 


INPUT MSG 
STRING(1..33); 


CHAR >: CHARACTER; 


package FLOAT INOUT is new BLOAT S1O( FLOAT)’; 
use FLOAT INOUT; 


begin 


cee ce ee ee ee eee ee ee es es es es ee es ee ee ee ee ee es ee es ee ee es ee ee ce es ce ce ee ce ee es es es es ee es ee es eee ee es ee ee ee ee ee ee ee ee eee ee 


VIDEO.SET COLOR PALETTE (BLUE) ; 
FINOPT PICTURES.THESIS MSG; 


i A I eee ee ee ee Tee ee es 


cmc cc cr cece crete cr cre er ee ec ew ww we ew we ww ww ww ew we ew we ee ee = 


SPACING ENGLISH := 0.5; 
Zeeopacing (in) 
DENSITY ENGLISH 0. 05928; 
=—- Density of surrounding fluid (lbm/ft*3) 


PEBCIMteG HEAT ENGLISH := 0.2404; 

-- Specific heat of surrounding fluid (BTU/ (lbm*deg-R) ) 
RPRENGLISH += 19.17745-5; 

=— Kinematic viscosity of surrounding fluid (ft%*2/s) 
K FLUID ENGLISH := 0.01608; 


-- Thermal conductivity of surrounding fluid (BTU/ (hr*ft*deg-R) ) 
WALL LENGTH ENGLISH := 6.0; 
-- Length of multi-fin placement area (in) 
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WALL WIDTH ENGLISH := 9.0; 
-- Width of multi-fin placement area (in) 


DIAMETER BNGEESH. .— ere tZe, 
--— Diameter (in) 

HEIGHT ENGLISH := 4.5; 
== Height. vin) 

WIDTH ENGLISH := 0.0625; 
—— Ween sala 

LENGTH ENGEYSi: = 92-25, 
=- Lengtm (in) 

VOLUME ENGLISH == 023451; 
-- Volume (in*3) 

H UENGLISH: == 120; 


-~- Convection heat transfer coefficient (BTU/ (hr*f£t*2*deg-R) ) 
K ENGLISH := 24.8; 
-- Thermal conductivity (BTU/ (hr*ft*deg-R) ) 
T AMBIENT ENGLISH := 70.0; 
-- Ambient Temperature (deg=F) 
T WALL ENGLISH := 200.0; 
-- Wall temperature (deg-F) 
O ENGLISH’ == 3.437 
-- Heat transferred (BTU/hr) 


— oe oe oe ee ee ee ee ee ee ee ee es ce ce ee es ee ee ee es os i is i ss is is i ss is i i ss is i is i ss i is is es is is is i is i sis is ee es ee ee es es es es ee oe 


SPACING SI := 1.04; 

== Spacing s(em) 
DENSTTY Sia := Lela; 

~- Density of surrounding fluid (kg/m‘3) 
SPRCURTG (HEAT on 2 — 00s; 

-- Specific heat of surrounding fluid (J/(kg*deg-K) ) 
NU SI := 1.568E-5; 

-- Kinematic viscosity of surrounding fluid (m%*2/s) 
KK PLUIDUST = 0.02624; 

-- Thermal conductivity of surrounding fluid (W/ (m*deg-K) ) 
WALL LENGTH SI := 9.0; 

=-— Length of multi-—fin. placemenerarcas in) 
WALL WIDTH SI := 22.14; 

-—- Width of multi-fin placement areas (in) 
DIAMETER ol 35°90. 7, 

== Diameter (em) 
HEIGHT SI := 4.7; 

-- Height (cm) 
WIDTH SI := 0.18; 

==" Widen (em) 
LENGTH SI := 9.0; 

-—= Lengens( em) 
VOLUME SI := 16.3516; 

-- Volume (cm‘%3) 
Heo S=17..0 5 

-- Convection heat transfer coefficient (W/(m*2*deg-Kk) ) 
Keo le 2 3 0; 

-- Thermal conductivity (W/(m*deg-Kk) ) 
TeEMBLENT (Sis =e 2 00), 

-- Ambient temperature (deg-C) 
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T WALL SI := 60.0; 

po Wall temperature (deg—-C) 
Opoiee 2. 02; 

-- Heat transferred (W) 


Se eee eee 


—— Continue? —- 
loop 
Die bEART SCREEN; 
riveree () 6,921, ~ ar 
YELLOW, CYAN) ; 
Gi GR) 22 0 Ld Wie CRN es oe 
YELLOW, CYAN) ; 
MueePuUr (8, 21, " “s YELLOW, CYAN); 
IY Ui (eed pe DO Pe LE GLOW,. CYAN): 
Livery r (221, " CE LLOW, CYAN) > 
ey Pw (9; 


miry.PUT (10, 21,>" eee LOW, IeLVAN ) 
meverue «10. S55, * ie YELLOW. (evan) 
ERY eur Le 2. 3 i LELEOW, GYAN) ¢ 
TTY. PUr el’, 655;,. ° Ye uOW,) CYAN); 
Te Vee PU a(n 2 eal SS Leu LOW , (CYAN): 
TTY sPUT (12, @55,." Per ELLOW, CYAN) > 
TUYeruE (lo, 21. ° ", YELLOW, CYAN); 
Liver “(is 5," Tee yELLOW, (CYAN) ; 
504020 3230 Ute (1: ee eee rE LLOW. (GYAN ) ? 

? 

4 

? 

tf 

c 


=e “Se 


c 
cv 
ce 
55, "  ", YELLOW, CYAN); 
¢ 
c 


TRienUr 14,7 55,.." 7 ee LOW, Se rLrAN) ; 
PIyeeUr (15, 21, ° ", YELLOW, CYAN); 
Os doc, 2210 Dae Gl Mo ai = ro a “7 LE LLOW, “EVAN ) ; 
EY pu (CLG, 2 1y < ", YELLOW, CYAN) ; 
Dh oe (LO, 55,5 ", YELLOW, CYAN) ; 
Ti eee One aly 21s ~, YELLOW, CYAN) ; 


iver (ky) so, “7 YELLOW, sGYAN) ; 

PI VerUr 16 2h. * We 

YELLOW, CYAN) ; 

age the (isl, eee te 

YELLOW, CYAN); 

PoP Uren tee 2 4). 7  YEUHOW, RED) >; 
PiyaeurT eo, 24, © Do you wish to continue ? o>, SRIGHE WHITE, 
RED) ; - 
Dieu eta, 245 YE RuOW.- RED) ; 
tween ew il, 24. % Peedi. FO DOS ", YELLOW, RED) ; 
EV CU el 2; 24, os LEGLEOW, RED); 
ieee ls, 24..." 2) sConeanue "| YELLOW, RED); 
River ur (1A, 24," Leb LOW, RED); 
verde (15°. 24a: oN impute your selection: [2] ae EGO, « RED) > 


ia ete hCG cop ee teso enter to accept default “, BRIGHT WHITE, 
EE) ; 


Pierre li, 24, ", YELLOW, RED); 
CURSOR SET SiZ&(13,13); 
loop 


CURSOR. MOVE §(15, 50); 

Miy.GEr (CONTINUE, CHAR); 

Pw eONTINUE = 2 Or CONTINUE = 3 or CONTINUE = 28 then 
exit; 


44 


else 
TTY.PUT (21, 24, “ Improper input, "pleasentecenue a 
BLUE, Crane; 
end: 1£; 
end loop; 
CURSOR: INHIBIT; 


ee 


ee ST ST TT TS TT eee eee 


emcee mc cr cr cr wr wr cr cr cr wr cr cr cr wr cr cr cr cr cr wr ec cw ce ec ec we ew we ws we we es eee ee ee ee ee oe oe oe oe 
‘esc crc cc cr cc mw cr cr cr cc cr ce ce re cm cr ce ce ec cc we ww es ee ee ee ee es ee a i i 
EN a es se ee ee, TE 


Ns ee es ee se ee ee ee ee ee ee ee es ee es ee ls LL 


TTY.CLEAR SCREEN; 


Piece UTA mepeiay = Bo 
YELLOW, CYAN); 

TiyeeUr sO tac le ve 
YELLOW, CYAN) ; 

Ti Pa (Ole fe a ", YELLOW, CYAN) ; 

TPYOEUL “Boo... "7 SELLOW, | CYAN); 

bab 4s 12) UU Ge 2 ", YELLOW, CYAN) ; 

Piel i 9p 7 YELLOW, se YAN): 

Gare < (1 Op ei ", YELLOW, CYAN) ; 

a era wal © Balam aL Sc co ad ‘ 


PLY PUT ele 9 
TY shure aso. . 
Tie PU re er a " 
TEESE. eos is 
Teer x lS eee ens ts 
DEY PUL 413) Se . 
TOYSEUT. (14) M2: i 
Diver Ul 414 hoo " 
DEeeUr {loo lee ‘ 
Civ PULl (iS) ose “ 
TivseUl (16,. 21) & - 
LEY euUr <6, 55,7 « es 
tyes Ore orl ‘“ 
Tiel <li So, ©: ss 


YELLOW, CYAN 
YELLOW, CYAN 
YELLOW, CYAN 
YELLOW, CYAN 
YELLOW, CYAN 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 


) 
) 
) 
) 
) 
YELLOW, CYAN) ; 
) 
) 
) 
) 
) 


= ~ ~ = = ™ ~~ = = ™= ~ = ~ = = ~ = ~ ~ ~ 


TTY SeuT {102 Di" 2 

YELLOW, CYAN); 

TPVeeUrT ace Oi ee 7 

YELLOW, CYAN) ; 

ter eeUr (56,75 24. 3" " YELLOW, RED: 
TiverrUr t. 9, 24a, \% Select Desired Unit System ", 

BRIGHT WHITE, RED) ; 

Giver (10, 24, 5% ", YELLOW, REDS 
EDP et Ll, 245 4" 1) English Engineering ", YELLOW, RED Ie 
TEU b2, 24,5" ". YELLOW, REDE 
TRY cutee bo, 24, ~ 2 eo ". YELLOW, REDE 
TTY -PUleit4,.24, ". YELLOW, REDE 
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Aue (Lopes a Input your selection: [2] SE ebOw, RED)? 
te eo ee oP ress eEnceryro accept default “, BRIGHT WHITE, 


RED); 
Meee Ob? 24," Pee GLOW, RED): 
CURSOR.SET SIZE(13,13); . 
loop 


SURSOR-MOVE 8(13, 30); 

tivecht (UNITS, CHAR): 

PESOS —ee or UNITS = 370r UNITS = 28 then 
apse ee 

else 
TTY.PUT (21, 24, “" Improper input, please reenter ", 
BLUE, CYAN); 

end if; 


end loop; 
CURSOR. INHIBET; 


ate 


i i i i i i i i LLL eee 


(UNITS = 2) then 

CONVERT DIST := 12.0; 

Convert inches to feet 

CONVERT TEMP := 460.0; 

Convert deg-F to deg-R 

GRAVITY 7=—.32.2; 

mecelerariion Of Gravity (£t/s*2) 
Gee —e32. 2, 

Sonversaom tactor (lbm*ft/ (lbft*s-Z)) 
SPACING := SPACING ENGLISH; 
SPACING UNITS a i g Waka 

DENSITY := DENSITY ENGLISH; 
DENSI ES UNITS >= diilje) vaste ee Ns 
SPECIFIC tells G i s= SPECIFIC HEAT _ENGLISH; 
SPECIFIC _HEAT SUNITS := "BTU/ (1bm*deg- Ry os 
NU := NU. _ENGLISH; 

NU_UNITS := "ft*2/s"; 

WALL _ LENGTH := WALL _ pee ae ENGLISH; 
WALL _ LENGTH _ UNITS = Pin" 

WALL WIDTH := WALL _WIDTH _ ENGLISH; 
WALL WIDTH UNITS := Saiycte 

NUM FINS UNITS := “fins” 

DIAMETER := DIAMETER ENGLISH; 
DIAMETER UNITS += de 9 Wainer) 

HEIGHT := HEIGHT ENGLISH; 

HEIGHT UNITS := "in"; 

WIDTH := WIDTH ee 
Wie HeeU Nit ome, Tl; 

LENGTH := LENGTH ENGLISH; 

LENGTH UNITS := "in"; 

VOLUME := VOLUME ENGLISH; 
VeLUMERUNITS=:=" ins"; 

H := H ENGLISH; 

Peviibow:— “ BrU/(hr*£t~2*deg-R) "; 
K := K_ ENGLISH; 

Pos EUR Des het ENGLI SH, 
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K UNITS := “BTU/ (hre>it* deg kaa. 
T AMBIENT := T AMBIENT ENGLISH; 
T WALL := T WALL ENGLISH; 

T UNITS := “deg-F"; 

QO := 0 ENGLISH; 

OLUNDTSay—— BLU/ hie; 


i i i 


ee o_o  —__ 


else 
CONVERTS Dist: = 10080; 
=> Convert centimeters to meters 
CONVERT TEMP := 273.15; 
== Convert deg-C to deg-K 
GRAVITY := 9.81; 
—— Acceleration of gravity (m/s%*2) 
Giese] iu, 
= Conversion factor (kg*m/ (N*s 2Z)) 
SPACING := SPACING SI; 
SPACING UNITS := "cm"; 
DENSI IY <= DENSITY ol, 
DENSITY UNITS := "kg/m*3 "; 
SPECIFIC VIEAT == SPECIFIC HEAT ssi; 
SPECIFIC HEAT UNITS := "JT/ (kg*deg-K) ba 
NU = NUUSL, 
NU UNITS =" "me2/s 39; 
WALL LENGTH := WALL LENGTH SI; 
WALL LENGTH_UNITS := "cm"; 
WALL WIDTH := WALL WIDTH SI; 
WALL WIDTH UNITS := "cm"; 
NUM OPINSZUNITS := “fins, 
DIAMETER := DIAMETER SI; 
DIAMETER UNITS := “cm"; 
HEIGHT §3— HELGHT sol, 
HEIGHT UNITS. = 7oma; 
WIDTH := WIDTH SI; 
WIDTH UNITS := "cm"; 
LENGTH “:—= LENGTH Si; 
LENGTH UNITS := "cm"; 
VOLUME := VOLUME SI; 
VOLUME UNITS := Cen s. a 
H := H SI; 
H UNITS := "“W/ (m*2*deg-K) ae 
K 23> K_ Sl; 
K_ FLUID K FLUID SI; 
K_ UNITS "W/ (m*deg-K) "3 
T AMBIENT := T AMBIENT SI; 
T WALL := T WALL SI; 
T UNITS := "deg-C"; 
Olea Ono Ll, 
Q UNITS := "W ur 
end if; 


cme wwe we we we wes wes ws we es we we ws ws ws ww ws wes we ws ws we we ww ww ee esse nan ae ae Ls ss Ss se: .2e-2fr KY oe ese 


ao Select Single or Multiple Fin Optimization = 
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cee mee wee ee ee ee ee ew we we we ew we em ww ew eee ee ie 


TTY, CLEAR TS GREEN; 


TTy,PUr (96, 21, “ " 
YELLOW, CYAN); 

Catia gp, eee 7 
YELLOW, CYAN); 

TueyeePU i (ecm eae ee YELEOW, CYAN) ; 

TTY.PUT ( 8, 55, ™ " YELLOW, CYAN); 

FEvoPUT eS, 21, ™ " YELLOW, CYAN); 

TrYyePUr ¢ 9, 55, " " YELLOW, CYAN); 

Tiere sadn " YELLOW, CYAN); 

TTY.PUT (10, 55, "  ", YELLOW, CYAN); 

REVerUrR Cll. 21, 3 " YELLOW, CYAN); 

Tiverumet hi. 55, " YELLOW, CYAN); 


TTY.PUT (12, 21, " ™“, YELLOW, CYAN); 
TTY.PUT (12, 55, "  "™, YELLOW, CYAN); 
TY PU oe 0 YELLOW, CYAN) ; 
TTY.PUT (13, 55, "  ", YELLOW, CYAN); 
Try PUretl4 ol, “MMen YELLOW, CYAN) ; 
TTY.PUT (14, 55, " ™“, YELLOW, CYAN); 
TTY.PUT (15, 21, " “, YELLOW, CYAN); 
TTY.PUT (15, 55, "  “™, YELLOW, CYAN); 
mivePue (16, 21, "Uae? "YELLOW, GYAN) ; 
TTY.PUT (16, 55, "  “™“, YELLOW, CYAN); 
TTY.PUT (17, 21, "  “™“, YELLOW, CYAN); 
Try PUT Clg, 55, “se, YELLOW, CYAN) ; 


ETY. PUL Le Zi, ae 

YELLOW, CYAN); 

ily PULP eGo. 21. ie 

YELLOW, GrAN); 

bY. P-UTo (see 245. oe rh inOW,. RED) ; 
fey PUT Co eZ a Select Fin Optimization be 

BRIGHT WHITE, |SJaIB) 

ioy. bPUreClLO; 24, " Vee Cob bOwW. RED)-> 
MEY. PUd s(ie. 24, * 1) Saingte Fin LE CLOW RED) 
ry. PUT “a2. 24, * "YELLOW, RED); 
ity. PU else eas 2) Multiple Fins ", YELLOW, RED); 
hiv: PUL 14, 24°" U7 YELLOW; RED) > 
ety oer lS, 3245. " Input your selection: [2] “uo YELLOW, RED) ; 


i Uno meer reso cOter to accept default ", BRIGHT WHITE, 
RED) ; 


Te eee ly) ya 4 ", YELLOW, RED); 
CURSOR.SET SIZE(13,13); 
loop 


CURSOR-MOVE (15, =50) ; 
TTY.GET (FIN SING MULT, CHAR); 
foots Mbt 2 or FIN SING MULT = 3 or 
FIN SING MULT = 28 then 
exit; 
else 
Tiverul 2ij824, " Improper input, please reenter ", 
BLUE, CYAN) ; 
end if; 
end loop; 
CURSOR. ENALELL; 
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mem cm wc ec ce we ee cc cc wc cc wc ec ce ce ee ee ee ee ee eee 


== Single Fin Problem, Select Cylindrical or Rectangular 787 =a 
if (FIN SING MULT = 2) then 
TTY.CLEAR SCREEN; 


TTY PUP ioe ol, ay 
YELLOW, CYAN); 
TTY ,PUl sid 22 lee mh 


YELLOW, CYAN); 
Jue our fF ea, 


YELLOW, CYAN) ; 


TTY.PUT ( 8, 55, “UY EUIOUL me Vani 
PTY. PUT ao, 2 ile " YELLOW, CYAN); 
PTY PUT O55 "YELLOW, CYAN); 
PT PUT MO, 2 le " YELLOW, CYAN); 
TTY.PUT (10, SS, “eee ,etourmme ANT: 
TTY PUT (11, 21, “9 VERO mie valine 
Try PUL (lle) Soeeee " YELLOW, CYAN); 
TTY .PUT (12, 21, “lesen OW mente: 
Try Pu 0 (2a > ee " YELLOW, CYAN); 


“ORTY PUR tls. ile es 
TTY.PUT (13, 55, " 
TTY PUT (14, 21, % 
TTY SPUT (idee co fe 
TTY.PUT (15, 21, " 
TTY.PUT (15, 55, " 
TTY.PUT (16, 21, " 
TTY.PUT (16, 55, " 
PRY PUreia ol.“ 
Tiyeriie Mago. oor 


) 
YELLOW, CYAN) 
YELLOW, CYAN) 
YELLOW, CYAN) 
) 
) 


= 
Lad 


YELLOW, CYAN 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN 
YELLOW, CYAN 
YELLOW, CYAN 
YELLOW, CYAN 


Ld -= -= = Sad 
ot —~ ~~ -= =e 


= 
ae 
~ ~ ™~ ~ ~ ~ ~ ~ ~ 7~ 


TRYeIew caw) Oe cule | 

YELLOW, CYAN); 

TRY OPUN (See oy 

YELLOW, CYAN) ; 

TTY 2CUl (aes wee “, YELLOW, 
RED) 

THEY PUL YS ca Select Desired Fin Shape a? 

BRIGHT WHITE, RED) ; 

Thy PUM loess | " YELLOw 
RED) ; 

Tie. PUL I tied 1) Cylindrical Spine ", YELLOW 
RED) ; 

TEYSeUl. Cl 224 we ", YELLOW 
RED); 

TTY PUL tle 245 2) Rectangular fin " YELLOW 
RED) > 

TEY. PUL (4ldeee 2 4 ", YELLOW, 
RED); 

ETY.PUT (ls, 824 5c Input your selection: [2] ", YELLOW, 
RED) ; 

TTY.PUT (16, 24, " Press enter to accept default ", 

BRIGHT WHITE, RED); 

TY. PUT (1924 oe ", YELLOW: 
RED) ; 


CURSOR.SET SIZE(13,13); 
loop 
CURSOR. MOVE (157) > 01g, 
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REGEN G YL REGT, .CHAR)\; 
Pf oP iN CyleRECT = 2 Jor FIN CYL RECT 
FIN CYL RECT = 28 then 
exit; 
else 
TYY. ec Owe =z Ie 
BLUE, CYAN) ; 
enc dat. 


Sor 


Zo Improper input, please reenter ", 


end loop; 
CURSOR. LN LBA T ; 


a6 


HEIGHT _MSG) ; 


cee cee ce ee ee ee ee ee ee 


ee ee 


Single Fin Problem, Cylindrical Spine, 
Draw Cylindrical Spine 


(PINSeyYE REC — 2) then 
DIAMETER MSG = "Diameter se 
HEIGHT MSG = " Height neh 


FINOPT DRAWINGS.CYLINDRICAL DRAWING(DIAMETER MSG, 


Sludge mba fF roolem, Cylindrical spine 
Choose Optimization 


ee  ___ __ 


TTY.CLEAR SCREEN; 


TinveseOre 2, 21, 
YELLOW, CYAN); 

TRIES 5. OSE [shea 
YELLOW, CYAN) ; 

TEY PUT sees 2 
Try seu 4, 55, 
Tio PUT (eo, s 21, 
Dee Ura OD, 
Ti YaeUibede6, 21, 
Teen? O,. 99), 
ee 6. 2d 
Tie PUd 3) D5, 
Pie Uieneees 21, 
Rive PUTS, 55, 
Tae eUran 9s 2 1e 
Toyobo 52, 
ive eUT lO, 21; 
Teleeee Un (Oe ao), 
Pye PUT (li 21, 
WAU Ge) 210) 0 "7 ass EAs oe 
iweb 27. 24, 
Tie oll 2, 50, 
DEY bun mGls, 21, 
Tipeee Oe S Oo, 
iy eeu (ia 21, 
MiyeeOl (eid, 55, 
Tene Une soy oe, 
AAS G1) 2) O04 ae el eo Pa pe es 
ELV oRUt WG, 21, 
Ty PU LO, 55; 


YELLOW, 
YELLOW, 
YELLOW, 
VELEOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
" YELLOW, 


~ ~ =~ ~ ~ ~ = ~ ~ ~ = ~ = = ~ 


™ ~ ~ ~ ~ ~ ~ ~ ™ 


30) 


CYAN) ; 
CYAN); 
CYAN) ; 
CYAN): 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN); 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 


RED) -; 


RED) ; 
RED) ee 
RED) 7 
RED) ; 
RED) ; 
RED) ; 
RED), 
RED) ; 
RED); 
RED) ; 
RED); 


RED) ; 


RED) ; 


Try eu sen 
TT SE Use 
Try seU a melee 
Thy PUT ance 
stuere Iue fis 
Thy seOnml oe 
Ae wsae (20) 
YELLOW, CYAN) 
Try PUG le 
YELLOW, CYAN) 
Try euUr ade 
TPyY.PUT woe 
BRIGHT WHITE, 
TTY .Por eas 
Ta ee Vege 
Ti seur eee 
TEYs.PUL (aor 
TTY -EUT enor 
Tie eU LT ai) 
Tive PUL Tee) 
TTY. PUT (13, 
TTY . PUT eae 
PTY .PULwulor 
TERY PUL (ior 
TTY PUT sia 
TE, PUT (ier 


BRIGHT WHITE, RED); 


Ti yc UR 


(7, 


a ere ", YELLOW, CYAlie 

Soeur a ", YELLOW, CYAN 

fa ", YELLOW, CYAN); 

SOG Neg ", YELLOW, CYAN) ; 

ee ". YELLOW, CYAND] 

5) ae ", YELLOW, CYAN? 

oAe ” 

2, 7 

247 v9 

24, " Choose Type of Optimization 
RED) ; 

oa; tt 

2a 1) No Optimization 

24, tt 

oa: 2) Maximum heat transfer 

Fa capability for a given 

24 volume 

2A. " 

ag ered 3) Minimum volume for a 
24% given heat transfer 
24) = capability 

par at 

24 Input your selection: [3] 

24, “ Press enter to accept default 


CAND " 


CURSOR. SE? 3128 (23,13) 


loop 
CURSOR.MOVE 


(17, 


20777 


TTY.GET (PING OP RE YE chara, 
if FIN OPT TYP 
FIN OPT TYP = 4¥0r FINSOPI GT a then 
Exit; 
else 


TTY see 


(237 


BLUE, CYAN); 

end 26; 
end loop; 
CURSOR: INHIBIT, 


24, 


a1 


" Improper aapue, 


2-Or FIN JOPT AT qe GY teks 


please reenter ", 


YELLOW, 


YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 


YELLOW, 


YELLOW, 


em cm ew wc ce re te ee ee ee ee ww ww ee 


== Single Fin Problem, Cylindrical Spine, No Optimization -- 
if (FIN OPT TYP = 2) then 
CYLINDRICAL NO OPT(UNITS, CONVERT DIST, DIAMETER, 
PIAME TERS UNITS, HEIGHT, HEIGHT UNITS, H, H_UNITS, K, 
K_UNITS, Ey _AMBIENT, T_ WALL, T _UNITS, Q, Q UNITS); 


emcee me ee cc we ee ce ec ce cw cw we rr re cr cr cr cr cr cr cr cre cr cr cc cr wr cr ee ee ee ee ew 


-—- Single Fin Problem, Cylindrical Spine, Maximum Heat -- 
—— Transfer Capability for a Given Volume —— 
ellsit y\ PUNgOrie) pee 3) sehen 
CYLINDRICAL _ GIVEN _VOL(UNITS, CONVERT DIST, VOLUME, 
VOLUME UNITS, DIAMETER, DIAMETER _ UNITS, HEIGHT, 
HEIGHT UNITS, H, H_UNITS, K, K_UNITS, T_AMBIENT, 
T WALL, T UNITS, Q, Q UNITS); 


== Single Fin Problem, Cylindrical Spine, Minimum Volume == 
aS for a Given Heat Transfer Capability =< 
else 
CYLINDRICAL GIVEN Q(UNITS, CONVERT DIST, DIAMETER, 
DIAMETER BUND Ss; HEIGHT, HEIGHT _UNITS, H, H_UNITS, K, 
K_ UNITS, ar _AMBIENT, T WALL, T UNAS? Q, Q UNITS); 
Sigel el 1 5 


-- Single Fin Problem, Cylindrical Spine == 
=5 Draw Cylindrical Spine With Calculated Dimensions == 
PUT (DIAMETER Sho NN DIAMETER, 4, 3); 
DIAMETER _MSG(11) Soe ; 


DIAMETER MSG(12..13) := DIAMETER_UNITS; 
PUT (HEIGHT MSG(1..10), HEIGHT, 4, 3); 
HEIGHT MSG(11) := ' '; 


HEIGHT _MSG(12. -13) := HEIGHT UNITS; 
FINOPT DRAWINGS. CYLINDRICAL | DRAWING (DIAMETER _ MSG, 
HEIGHT MSG); 


=—- Single Fin Problem, Rectangular Fin, -- 
ae Draw Rectangular Fin a 
else 
WIDTH MSG >= “Width se 
LENGTH MSG := “Length ae 
HEIGHT _MSG := " Height sa 


FINOPT DRAWINGS.RECTANGULAR _ DRAWING (WIDTH | MSG, LENGTH MSG, 
HEIGHT MSG) ; 


cme ccc cm ce ce ce ce ce cc ce cc ce cc cc cc cc ce cc ee wm ee we ee ee i ee 


-- Single Fin Problem, Rectangular Fin -— 
=a Geese OpeiImiZation = 


cm cr rm ee ee ce ce te cr ce cr ee ce cc cc cr ce cc cr cr cm cr ccc cr cr cr cr cr mr cr cr cr me mm ee ee ee ee we oe 


RED); 


RED); 
RED) 
RED) ; 
RED) ; 


RED); 


TTY.CLEAR SCREEN; 


Tey wean me 
YELLOW, CYAN) 
Toy aeGae oe 
YELLOW, CYAN) 
Py wed ee 
TiyvsDum 4 4; 
shane, ieldwe () S\ 
pec uieae (5. 
TP yY |PUr eG, 
JUéejecee 1 3) 
The Caen er 
Thy Cee 
sparse, eiian f°) 
Ti. PUT canes 
Tie bul a(2o7 
ius epee res Sh 
TTY.PUT (10, 
Tey ean oe 
Tay oP oe ale 
TRY CUT adie 
TE Ve Uaent ieee 
Tay PUA ier 
Ti Lua) sy 
Try oe pees 
Try cones 
Ti Pua ae 
TiveeO nt aloe 
Try PUP eC, 
TTY. PUT (16, 
TTY.PUT (16, 
Try oOo 
Try wus 
TTY. cur (le, 
TTY DUs eer 
Try .Puiet Toe 
TTY Pun (io, 
Try seul 1 o0n 
YELLOW, CYAN) 
Ta Pus 2 ie 
YELLOW, CYAN) 
THY @PUi ue ay 
Thy ePUdaGeo, 
BRIGHT WHITE, 
Ty oUt a( or 
TY. DU wee 
TTY bum ee 
TTY.PUT ( 9, 
grate iehgar (I), 


Ze 
ral 
ot 
55, 
Dil, 
55, 
oe 
55, 
Dig 
55, 
21, 
55, 
Ble 
55, 
21, 
55, 
Pale 
55, 
ak, 
55, 
Di, 
55, 
oe 
55, 
ea 
55, 
Daily 
55, 
2A 
55, 
oi 
55, 
oa 
55, 
pale 


Zi, 


", YELLOW, (CYAN); 


~ = = ~ ~ 


YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN); 


", YELLOW, CYAN) ; 


he 


“ 


x 
a 
Y 


~ ~~ ~ ~ ~ ~ ~ ~ ~ ”~ be) 


ELLOW, CYAN) ; 


YELLOW, CYAN); 
YELLOW, CYAN) ; 
YELLOW, CYAN); 


ELLOW, CYAN) ; 


YELLOW, CYAN) ; 


ELLOW, CYAN); 
ELLOW, CYAN); 
ELLOW, CYAN) ; 


YELLOW, CYAN); 


", YELLOW, CYAN); 


eé 


ne 


= = ba) ba) = ~ ~ = ~ ~ = ™= ~ ”~ ~ ~ 


ELLOW, CYAN) ; 


YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN); 


ELLOW, CYAN) ; 


YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN) ; 
YELLOW, CYAN); 
YELLOW, CYAN) ; 
YELLOW, CYAN); 
YELLOW, CYAN)? 


Choose Type of Optimization 


1) No Optimization 


2) Maximum heat transfer 
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capability for a given 


YELLOW, 


YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 


YELLOW, 


mine LULL Skt .24, volume and length ", YELLOW, 


RED) ; 

TTY Seu Ci2e. 24a, ™ SY GoLLOw, 
RED) ; 

PT Yeu (ise ca, © 3) Minimum volume for a ee DELO, 
RED) ; 

iy .eUned 4, 24, ™ given heat transfer [3 ve LLow: 
RED) ; 

TiVaeUr a noeee2 4, « Gapaba lity i YELEOW, 
RED) ; 

iy ebUt (ee. 24, -" Tare GLOW ; 
RED) ; 

Gd Wes Gree) a 5 ab Gs el oP eae? ee Input your selection: [3] ©; YELLOW, 
Ee)) f 

TTY.PUT (18, 24, " Press enter to accept default ", 

BRIGHT WHITE, RED); 

eve eUr (1-9. 245° ", YELLOW, 
RED) ; 


CURSOR SSE sotge (13,12) 
loop 
CURSOR@MOVE “(17,. 50); 
tty GEE WEAN ORT EYP, CHAR) ; 
if FIN_OPT TYP = 2 or FIN OPT TYP = 3 or 
FIN OPT TYP = 4 or FIN OPT TYP = 28 then 
exit; 
else 
TIY.eUT (23, 24, ~ Improper input, please reenter "“, 
BHUE, CYAN); 
sgiolwalies: 
end loop; 
CURSOR. INHIBIT; 


-- Single Fin Problem, Rectangular Fin, No Optimization == 
if (FIN OPT TYP = 2) then 
RECTANGULAR NO OPT(UNITS, CONVERT DIST, LENGTH, 
LENGTH UNITS, HEIGHT, HEIGHT UNITS, WIDTH, 
WIDTH UNITS, H, H_UNITS, K, K_UNITS, T AMBIENT, 
T WALL, T UNITS, ©, Q UNITS); 


== Single Fin Problem, Rectangular Fin, Maximum Heat -- 
== Transfer Capability for a Given Volume and Length = 


Seite ( bell) nO Dine es) eee ien 
RECTANGULAR GIVEN VOL(UNITS, CONVERT DIST, VOLUME, 
VOLUME UNITS, LENGTH, LENGTH _UNITS, HEIGHT, HEIGHT UNITS, 
WIDTH, WIDTH_UNITS, Hi, H_UNITS, Ky K_UNITS, 
T AMBIENT, T WALL, T UNITS, Q, Q UNITS); 


-- Single Fin Problem, Rectangular Fin, Minimum Volume -- 
== for a Given Heat Transfer Capability == 


else 
RECTANGULAR GIVEN _Q(UNITS, CONVERT DIST, LENGTH, 
LENGTH UNITS, HEIGHT, HEIGHT UNITS, WIDTH, 
WIDTH_UNITS, H, H_UNITS, K, K_UNITS, T AMBIENT, 
T WALL, T UNITS, ©, OLUN~ETo » 

end if; 


Single Fin Problem, Rectangular Hun -- 
Draw Rectangular Fin With Calculated Dimensions = 


— ee tc cc ec ww ee ee ee ee ee ee ee ee ee ee we ee ee ee ee ee ee ee ee ee ee ee 


PUT (WIDTH MSG(1..10), WIDTH, 4, 3); 


WIDTH MSG(11) := ' '; 

WIDTH MSG(12..13) := WIDTH UNITS; 

PUT (LENGTH MSG(1..10), LENGTH, 4, 3); 
LENGTH MSG(11) 2= * '; 

LENGTH MSG(12..13) := LENGTH UNITS; 
PUT (HEIGHT _MSG(1..10), HEIGHT, 4, 3); 
HEIGHT IMSG (li!) := tee 

HEIGHT MSG(12..13) := HEIGHT UNITS; 


FINOPT DRAWINGS. RECTANGULAR_DRAWING(WIDTH_MSG, LENGTH MSG, 
HEIGHT MSG) ; 


end "is; 


me Multiple Fin Problem, Rectangular Fins, Draw Rectangular Fins == 


else 
WIDTH MSG =" Width 0a: 
LENGTH_MSG >= “Length os 
HEIGHT MSG =" Height"; 
SPACING MSG a Spacing = 
WALL LENGTH MSG := " Wall Length "; 
WALL WIDTH MSG := " Wall Width "; 


FINOPT DRAWINGS.MULTI_FIN_DRAWING(WIDTH MSG, LENGTH MSG, 
HEIGHT MSG, SPACING MSG, WALL LENGTH MSG, WALL WIDTH MSG) ; 


—— Multiple Fin Problem, Rectangular Fins, Choose Optimization == 


TTY .CLEAR_SCREEN; 


TERY. PUT (2 2 leer wo 
YELLOW, CYAN); 

TTY Pid es 2 " 
YELLOW, CYAN); 

TTY. PUT ( 4, 21," “)evED LONG re 

TTY.PUT ( 4, 55, "  ™", YELLOW, CYAN); 

TTY. PUT {( 5, 21,05 “Se yELLOn ewe 

TTY.PUT ( 5, 55, "  “, YELLOW, CYAN); 

TTY.PUT ( 6, 21, " ©", YELLOW, weve 

TTY.PUT ( 6, 55, " ™“, YELLOWS GvaMe 

TTY.PUT (7, 21, "  ", YELLOW, CYAN); 

TTY.PUT ( 7, 55, "  ", YELLOW, CYAN); 

TTY. PUT (8, 21," 9") YERUon ernie 

TTY.PUT ( 8, 55, "  ", YELLOW, CYAN); 

TTY.PUT (9, 21, "  ", YELLOW, CYAN); 


oe 


RED) ; 


RED) ; 
RED) ; 
RED) ; 
RED) ; 
BED) ; 
RED) ; 
RED) ; 
BED) ; 
Re) ; 
RED) ; 
RED) ; 


RED) ; 


TieveeDuT i 9, 
Ie. Bone (loe 
Me. UGE Io 
Tee one TLL 
TTY.PUT (11, 
TTY.PUT (12, 
Te VIG (Ie, 
TTY. PUT (13, 
ee, elsee (ele 
Tey Pte aA, 
Tre PUT (14, 
Tie U Tani 1S) 
TTY.PUT (15, 
Tey apian(G- 
TTY.PUT (16, 
TTY.PUT (17, 
Tima bUie (ig, 
TiYerUr (19, 
rae vay Tis) 
quwenvebae fis), 
seer alee 
TTY.PUT (20, 
YELLOW, CYAN) 
TTY Pum eae lL, 
YELLOW, CYAN) 
Tuy BU 4, 
ry PUL 5, 
BRIGHT WHITE, 
TTY Puen (eG) 
TTY.PUT ( 7, 
Try. Pur Gee, 
Tivepuret 9, 
iY «DU lee oe 
DPRYarud (li, 
ty ee C2. 
Mie. PUGS, 
tive PUL (4 
tel ep Uae 24) &, 
CTY EULA CLS, 
Tele etal, 
TPyerUT Milo 


BRIGHT WHITE, RED); 


24, 


Za; 


t 


t 
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Choose Type 


i) 


YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 


CYAN); 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
GYAN) > 
CYAN); 
CYAN) > 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN )-; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 


of Optimization 


No Optimization 


2) Maximum heat transfer 


3) 


Input your selection: 


capability from each 


fin in a given area 


Maximum heat transfer 


capability for a given 


area 
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[3] 


Press enter to accept default 


7, YGLLOW, 


ee LLOW; 
ee GE LOW, 
aE BLOW 
", YELLOW, 
VvELLOW, 
", YELLOW, 
eve LEO, 
ee YE LOW, 
aE ELLOW. 
ee ELOW,; 
Se YELLOW, 


(7) YELLOW, 


TY SPUD (SS ae Y, YELLOW 
leV BM oe 
CURSOR. SET SiZ7biGs oe 
loop 
CURSOR. MOVE 7 30). 
TTY.GET (PIN ORD PY P7 se@tearae, 
if FIN _OPT TYP = 2 or FIN OPT TYP = 3 or 
PIN OPT TYP = 4er FIN OPT TYP = 28 then 
exit; 
else 
TTY.PUT (23, 24, " Improper input, pledseuwreceue-r ae 
BLUE, CYAN) 3 
end if; 
end loop; 
CURSOR. INHEBSIT; 


== Multiple Fin Problem, Rectangular Fins, No OptimiZacrcn == 
If (PIN OPT Ie = 2) eenen 
MULTIPLE _ - NO _OPT(UNITS, CONVERT DIST, CONVERT TEMPE iGo 
GRAVITY, WALL _ LENGTH, WALL _ LENGTH SUN TES; WALL _ WIDTH, 
WALL WIDTH _UNITS, LENGTH, LENGTH _UNITS, HEIGHT, 
HEIGHT _UNITS, WIDTH, WIDTH SUN tay SPACING, 
SPACING _UNITS, NUM FINS, NUM _ FINS UNITS, {DENSI aa 
DENSITY UNITS, SPECIFIC _HEAT, SPECIFIC HEAT UNITS, Ke 
K FLUID, K_UNITS, NU, NU_UNITS, T AMBIENT, T WALL, 
DUNT Se OeOuUNd to, 


— ee cm ee we ee es es ee es es ee es es ee es ee es es es es cc cc es es es es es eee ee ee 


—-- Multiple Fin Problem, Rectangular Fins, Maximum Heat -- 
== Transfer Capability From Each Fin in a Given area -- 
elsif (FIN OPT TYP = 3) then 

MULTIPLE MAX FIN(UNITS, CONVERT DIST, CONVERT TEMP, GC, 

GRAVITY, WALL _ LENGTH, WALL _ LENGTH _UNITS, WALL WIDTH, 7 

WALL WIDTH UNIS: LENGTH, LENGTH SUNT Ts? HEIGHT, 

HEIGHT SUNT: WIDTH) WEbit Lonnrss SPACING, 

SPACING UNITS, NUM FINS, NUM _ FINS UNITS, DENSiiy, 

DENSITY UNITS, SPECIFIC. HEAT, SPECIFIC _HEAT UNITS, K, 

KS FLUID, K UNITS, NU, NU _UNITS, T AMBIENT, T WALL, 

T UNITS, 0, O.UNEro: 


=< Single Fin Problem, Rectangular Fin, Maximum Heat Transfer == 
ste Capability for a Given Area == 
else 

MULTIPLE MAX Q(UNITS, CONVERT DIST, CONVERT TEMP, GC, 

GRAVITY, WALL _ LENGTH, WALL _ LENGTH UNITES, WALL _ WIDTH, 

WALL WIDTH _ UNITS, LENGTH, LENGTH _ UNITS, HEIGH, 

HEIGHT GUNES? WIDTH, WIDTH ON eeS SPACING, 

SPACING _UNITS, NUM _FINS, NUM __ FINS UNITS, DENSITY, 

DENSITY _UNITS, SPECIFIC HEAT, SPECIFIC HEAT UNG 

K FLUID, K_ UNITS, NU, NU_ UNGT Se _AMBIENT, T WALL, 

TEUNITTS, Ono eUhiuns 


7 


mee ccc cm wr ce ce cr ee ee cm cm cm cr crm cr cc cc cc ce ec ee es we ee ie 


Meter leoerinm Problem, Rectangular Fins, _— 
Draw Rectangular Fins With Calculated Dimensions == 


em cm ce cr cr ce ew ce ee ec ce wc ec ec we we we ew ee ee ee ew mw ew ee ee ee ee 


PUD (WIEDER EMSG( 1.2.10), WIDTH, 4, 3)5 


WIDTH MSG(11) :=' '; 

WIDTH MSG(12..13) := WIDTH UNITS; 

PUT (LENGTH MSG(1..10), LENGTH, 4, 3); 

LENGTH MSG(11) := ' '; 

LENGTH MSG(12..13) := LENGTH UNITS; 

PUT (HEIGHT MSG(1..10), HEIGHT, 4, 3); 

HEIGHT MSG(11) := ' '; 

HEIGHT MSG(12..13) := HEIGHT UNITS; 

PUT (SPACING MSG(1..10), SPACING, 4, 3); 
SPACING MSG(11) := ' '; 

SPACING MSG(12..13) := SPACING UNITS; 

PUT (WALL LENGTH MSG(1..10), WALL LENGTH, 4, 3); 
WALL LENGTH MSG(11) := ' '; 
WALL_LENGTH_MSG(12..13) := WALL_LENGTH_UNITS; 
PUT (WALL WIDTH MSG(1..10), WALL WIDTH, 4, 3); 
WALL WIDTH MSG(11l) := ' '; 

WALL WIDTH MSG(12..13) := WALL WIDTH UNITS; 


FINOPT DRAWINGS.MULTI_ FIN DRAWING(WIDTH MSG, LENGTH MSG, 
HEIGHT MSG, SPACING MSG, WALL LENGTH MSG, WALL WIDTH MSG); 


end if; 
-- Reinitialize Variables -- 

heen ES = 2) then 
SPACING ENGLISH = SPACING; 
DENSITY ENGLISH s—= DENSITY; 
SPECIFIC_HEAT ENGLISH := SPECIFIC_HEAT; 
NU _ENGLISH >= NU; 
a FLUID _ ENGLISH := K_FLUID; 
WALL _LENGTH_ ENGLISH := WALL LENGTH; 
WALL _ WIDTH _ENGLISH := WALL WIDTH; 
NUM _ FINS _ENGLISH ;= NUM FINS; 
DIAMETER _ ENGLISH := DIAMETER; 
HEIGHT ENGLISH := HEIGHT; 
WIDTH ENGLISH := WIDTH; 
LENGTH ENGLISH := LENGTH; 
VOLUME ENGLISH >= VOLUME; 
H ENGLISH := H; 
he ENGLISH := K; 
T _ AMBIENT _ENGLISH := T AMBIENT; 
T WALL ENGLISH := T_WALL; 
Q- ENGLISH := Oy 

else 
SPACING SI := SPACING; 
DENSITY SI := DENSITY; 
SPECIFIC HEAT SI := SPECIFIC HEAT; 
NU Si :=— NU; 
fob buED Tobe: = kK FLUID; 
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WALL LENGTH SI := WALL LENGTH; 


WALL WIDTH SI := WALL WIDTH; 
NUM_FINS SI := NUM FINS; 
DIAMETEK O25. = sDIAMETER; 
HEIGHT oie] esc, 
WIDTH SL — Wieot a, 
LENGTH SI := LENGTH; 
VOLUME SI := VOLUME; 
H SI :="H; 
K SI := K; 
T AMBIENT SI := T AMBIENT; 
T_ WALLS See: = fb SwAin, 
Q SsI := Q; 
end if; 
end loop; 


mm rm rc me me cee wc cw we ww we ee we ee we ee ee ee ie ee ee ee ee ee ee oe ee er ee ee ee ee ee ee ee ee we ee ee ee = 


FINOPT PICTURES SExTT MSG, 
VIDEO.SET COLOR PALETTE (BLACK) ; 
CURSOR.MOVE (22, (i); 
CURSOR.SET SIZE(13,13); 

end FINOPT; 
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== “Wsleal PeEeaLENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS: 
= : A COMPUTER OPTIMIZATION 
auc lor : John Reynold Gensure 

——) Date 2 June 1992 


package FINOPT COMMON is 


peoceaure GET INPUT(INPUT VALUE whe Olle. POAT ; 
ENEUT MSG ; in STRING; 
SIZE INPUT _MSG Pie NT EGER, 
INPUT VALUE UNITS : in STRING; 
SIZE INPUT VALUE UNITS Sela iT EGER, 
ROW START > in INTEGER) ; 


end FINOPT COMMON; 
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=e rte >: EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS: 


A COMPUTER OPTIMIZATION 


== Author : John Reynold Gensure 


with 


Use 


Date : June 1992 
TEXT 10, COMMON DISPLAY TYPES, TiY,) CURSOR: 


TEXT IO, COMMON DISPLAY TYPES; 


package body FINOPT COMMON is 


package FLOAT INOUT is new FLOAT IO(FLOAT) ; 
use FLOAT _ INOUT; 


pzocedure GET INEUT (NEU vALUS ; in Out ELO@ra 
INPUT MSG ; In STRING, 
SIZE INPUT MSG : in INTEGER; 
INPUT VALUE UNITS ; in STRING, 
SIZE INPUT VALUE UNITS ;: in INTEGER; 
ROW_START : in INTEGER) is 
NUMBER OUT ; STRING(1 ioe 
CHAR : CHARACTER; 
DEFAULT_KEY : INTEGER; 
begin 


TTY.PUT (ROW START, 1, INPUT MSG, YELLOW, BLACK); 

TTY.PUT (ROW START, 1+SIZE INPUT MSG, " (", YELLOW, BLACK) ; 
TTY.PUT (ROW START, 3+SIZE INPUT MSG, 

INPUT VALUE UNITS(1..SIZE_ INPUT VALUE UNITS), YELLOW, BLACK) ; 
TTY.PUT (ROW START, SIZE INPUT VALUE UNITS+3+SIZE INPUT MSG, ") = 


YELLOW, BLACK) ; 
TTY.PUT (ROW START+1, I, 
"Press enter to accept default or any other key to enter new 


value", 


BRIGHT WHITE, BLACK); 
PUT (NUMBER OUT, INPUT VALUE, 4, 3); 
TTY.PUT (ROW START, SIZE INPUT VALUE UNITS+/+s12R (NEU iarioe 
NUMBER OUT, YELLOW, BLACK) ; 

CURSOR.SET SIZE (13,13); 
TTY.GEY (DEFAULT KEY, CHAR): 

CURSOR, INHIBIT; 
if DEFAULT KEY /= 28 then 

loop 
begin 
PLY PUT, (ROW START, 


SIZE INPUT VALUE UNITS+7+SIZE INPUT MSG, 


v " BLACK, BLACK); 
TTY.PUT (ROW START+2, 1, "New value = ", BRIGHT WHITE, 


BLACK) ; 


CURSOR.SET SIZE (13,13); 
GET (INPUT VALUE) ; 
SKIP LINE; 
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CURSOR. INHIBIT: 
exit; 

exception 
when others => 


TTY.PUT (23, 24, " Improper input, please reenter ", 


BLUE, CYAN); 
end; 
end loop; 
iver 25, 24, ~' 
BLACK, BLACK) ; 
fever oe Uae (ROW START+2, 1 ene 
BLACK, BLACK) ; 
end if; 
Ale h Giee ee Ohl ly (ROW _START+I1, IL 


BLACK, BLACK) ; 
itr. PUT) (ROW START, I+SIZESINPUT MSG, " 


YELLOW, BLACK) ; 
TTY.PUT (ROW START, 46, " ", BLACK, BLACK); 
TTY.PUT (ROW START, 45, " = ", YELLOW, BLACK); 
PUT (NUMBER OUT, INPUT VALUE, 4, 3); 
TTY.PUT (ROW START, 48, NUMBER OUT, YELLOW, BLACK) ; 
TTY.PUT (ROW START, 58, " ", YELLOW, BLACK) ; 
TTY.PUT (ROW START, 59, 

INPUT VALUE UNITS(1..SIZE_ INPUT VALUE UNITS), 
YELLOW, BLACK) ; 
TTY.PUT (ROW START, 59+SIZE INPUT VALUE UNITS, 
i m, YELLOW, BLACK); 


end GET INPUT; 


end FINOPT COMMON; 


Oe 


—-- Title ;: EXTENDED SURFACE HEAT SINKS FOR SEREG PEGG 


a : A COMPUTER OPTIMIZATION 
Seige UNE Gone : John Reynold Gensure 
-- Date : June 1992 


package FINOPT DRAWINGS is 


procedure CYLINDRICAL DRAWING (DIAMETER MSG 
HEIGHT MSG 


procedure RECTANGULAR_DRAWING (WIDTH_MSG 
LENGTH_MSG 
HEIGHT MSG 


procedure MULTI FIN DRAWING(WIDTH_ MSG 
LENGTH_MSG 
HEIGHT MSG 
SPACING MSG 
WALL LENGTH MSG 
WALL WIDTH MSG 


end FINOPT DRAWINGS; 
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in 
Tr 


in 
in 
in 


in 
in 
in 
objet 
in 
in 


COMPONENTS: 


STRING; 
STRING) ; 


STRING; 
STRING; 
STRING) ; 


STRING; 
STRING; 
STRING; 
STRING; 
STRING; 
STRING) ; 


COMPONENTS: 


== els EAZTENDED SURFACE HEAT SINKS FOR ELECTRONIC 
ae A COMPUTER OPTIMIZATION 

mo AUCHOL John Reynold Gensure 

==) Date June 1992 

with SCO MONDE SELAy IxFES, 11Y, 


use COMMON DISPLAY TYPES; 
package body FINOPT DRAWINGS is 


procedure CYLINDRICAL DRAWING (DIAMETER _MSG 


Dao GR LNG; 


c 


PAUSE 


CHAR 


begin 


TTY.CLEAR_ SCREEN; 


eel EL 
ey. PUT 
SEE hr) 2a Oi 
folly PUT 
dees UL, 
iirc UT 
ele Uae 
pelea 
ei. U T 
tly. PUT 
ele ee Ord. 
ley. PUT 
IEG Se 6 i & 
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lies UL 
ieee k UT 
ayo Ul 
YELLOW, 
ee Ye Ud 
YELLOW, 
Diy PUL 
iy PU 
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iy. PUL 
Med Yee U1: 
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Hee. UIT 
Hee PUT 
Hee UL 


YELLOW, 
IULE) SIZADEE 


07. 20, 
ilish 
IWF 
IS) 5 
I 
14, 
ikey 
Ia 


~ ~ 


~ ~ ~ ~ ™~ 


~ 
co 
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~ 


~ ~ ~ 


DBOAAIAAAHAUN SD BWWNONP EP 
= = = 
4 
© 
= 


No 
ui 


BLACK) ; 
Co, #3, 
RED) ; 
(ao, 
11 Pa es 


RED); 
(10, 
(die) 


Ren, 
(ll, 
Ci ly 
Ze: 


RED) ; 
(Za 


HEIGHT MSG in STRING) is 


: INTEGER; 


CHARACTER; 


, Po YELLOW, | SLACK): 
"/", YELLOW, BLACK) ; 

‘ Jat SYEbLow,, RED): 

"/", YELLOW, BLACK) ; 

re [) \SYSLLOW,~ RED); 

L/S) MELLOW, SB LACK): 

: iy {"', YELLOW, RED); 
"/") YELLOW, BLACK); 

: ie |"', YELLOW, RED) ; 
Vee YE GLOW 2 bLAGCK).+ 

fi i; ae YELLOW, RED); 
7 OE LOW 2) BLACK ) 3 
8 i | a 
"/" > YELLOW, BLACK) ; 
oe |", YELLOW, RED) ; 
al | ", YELLOW, RED); 


YELLOW, RED); 


“5 | / ‘ 


eX fe EGEOW, BLACK); 
“| | / \ / 


ges |", YELLOW, BLACK) ; 


eal | | | FIN 


te | ef 
f 


YELLOW, BLACK) ; 
DIAMETER MSG, YELLOW, BLACK) ; 
ol | | | 


os |", YELLOW, BLACK) ; 
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TTY.PUT (1376 > ee | ‘ / . 


YELLOW, RED) ; 


TPY.PUT (isres2, eae, |", YELLOW, BLACK: 

TTY. PUT (14). “Sse | \ hee \ ae 

YELLOW, RED); “a 

TTY: PUD 4 Oey, | "“, YELLOW, BLACK) 

TTY.2UL CUS es ele "| YELLOW, RED); 

TTY.PUT (15, 22, "/", YELLOWs earners 

TRY..PUT (167s Shee |", YELLOW, RED) ; 

TivaPUT (We, 20. 0 / |", YELLOW, BLAGKE 

TEeeUT (17, 5, | " YELLOW, RED 

TLY.cUL (il, Ler |", YELLOwe 
BLACK) ; 

TRY SPUT Ileye “S| | w YELLOW, PRED) 

TTY.PUT (18, 16, “/  |---------------------------- \", YELROw 
BLACK) ; 

TRY PUT. (1S S| | "| YELLOW, RED); 

TIVSPUL le. Ad et / | |", YELEOwE 
BLACK) ; 

TTY.PUT (19, 28, HELGHT MSG we VELEOW eS euAcir 

TUL SPU Padi 2 Ome o 2) | _™ YELLOW, RED)= 

TPY secure 2O ele 7 | _— 

YELLOW, BLACK) ; 

TTY<PUT (21, 5,0" | eel 27 eel On Rene: 

TTY. PUT (21, 10,017" YELEOU EPLAch 

TTY.PUT (23, 27, “ Press any key to continue “, BLUE, Gan 

TTY.GET (PAUSE, CHAR); 


end CYLINDRICAL DRAWING; 


procedure RECTANGULAR DRAWING (WIDTH MSG : in STRING; 
LENGTH MSG : in STRING, 
HEIGHT MSG : in STRING) is 
PAUSE : INTEGER: 
CHAR > CHARACTER; 
begin 


TTY.CLEAR_ SCREEN; 





TRYeCUT- (0. zon, s "| YELLOW, BLACK); 

TTY. PUT ( 1, 235 “7° PP YELLOW Belew. 

TIVePUnT (> lu alee / |") YELLOW, RED): 

TTY. PUT ( 2, 21,-"/*,. YELLOW we Eoeae 

PEY oPUT o(-2, 2260 / |", YELLOW, RED); 

TTY.PUT ( 3, 19; °"/", YELLOW, eiacw 

TRY APU “(sy 27 0 wee y |", YELLOW, RED); 

TTY.PUT ( 4, 17, “/"> YELLOW bce 

TRY PUT: -( Ay eso j |", YELLOW ©) RED) 

TT PUT wt tals 2 een * YELLOW, BLACKER 

TTY.PUT ( 5, 15, “/°%, YERUOW wero elor. 

TERY. PUT (5501 Grae y / / |", YEULOuPr 
RED); 

TTY.PUT ( 5, 53, “ll! YELLOW eo raekenr 
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Mier <6, 14, | | / / |", YELLOW, 





RED) ; 
Lewewa wo, SS. |" YELLOW; BLACK) ; 
iit a o,m 0, iDiH MSG, YELLOW, BLACK} ; 
EEweskun « 7 14.0% 4 | / 7 ae ven LOW, 
RED) ; 
tie og, ols). | eee LLOW, BLACK) ; 
Tiveriun {9 8, 14, "| | / / ", YELLOW, RED); 
Tiana, 46, “/", YELLOW, BLACK) ; 
Ey olUrete 9, 14, ") [7 / " YELLOW, RED); 
Tiwabur ( 9, 44, "“/ |", YELLOW, BLACK) ; 
ErerOr (10, 14, "| W ay vi "YELLOW, RED); 
EivebUn able, 42, %"/ PS VE LUOW) © BLACK) ; 
Liverror (ll, 14, “| <A | "| YELLOW, RED); 
Eiwerur (ll, 40, “/ i> YELLOW, BLACK); 
hiveror vie. 4,° "| UG FIN | ", YELLOW, RED) ; 
iver (2. 38, “"/ Fine CeGbOW, BLACK); 
Rieesbve (13, 14, "| Lb |", YELLOW, RED); 
LDYorcuUr (13, 36, “/ (ACR ELLOW,. BLACK): 
Pier (14, 14, %| | " YELLOW, RED) ; 
Dieeeor (14,. 27,07 7 to yELLOW, BLACK): 
iweeur (15, 14, "| | i YELLOW, -RED) : 
iivepur (15, 25, “/ | / iS. YELLOW, BLACK); 
PRverur (16, 14, "| [ee ee LOW URED): 
TEsPUT (1G, 23, “/ | J) YELLOW, BLACK): 
iieepun (ig, 14, | |", YELLOW, RED); 
iirerur (17, 21, “/ a7"... YELLOW, BLACK): 
TTY.PUT (17, 41, LENGTH MSG, YELLOW, BLACK); 
fiir. rFurT (16, 35, "|"; YELLOW, BLACK): 
Tie PUT (19, 20, "| |", YELLOW, BLACK) ; 
TTY.PUT (20, 20, "|-------------- |", YELLOW, BLACK) ; 
Miveecur (21, 207.9%)". YELLOW, BLACK) > 
fimeaewle( 21, 22;,—.HerGHT MSG, YELLOW, BLACK) ; 
ierverler aol, 35, "|", YELLOW, BLACK) ; 
Mireur (zo). 2/, Press any key to continue ”, BLUE, CYAN); 
TTY.GET (PAUSE, CHAR); 


end RECTANGULAR DRAWING; 


procedure MULTI FIN DRAWING (WIDTH MSG abn oLRENG; 
LENGTH MSG ; an STRING; 
HEIGHT MSG sino LROENG: 
SPACING MSG : in STRING; 
WALL LENGTH MSG 2eLa oTRUNG; 
WALL WIDTH MSG : in STRING) is 
PAUSE Te UNTEGER, 
CHAR : CHARACTER; 
begin 


TTY.CLEAR SCREEN; 
TTY.PUT ( O, 27, WALL WIDTH_MSG, YELLOW, BLACK); 
PieerUr a ( 1, 10, 
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(16, 62 e. l, YELLOW, BLACK) ; 

(ie 207 \ \", YELLOW, BLACK); 

Geom | =|") eubinow, RED) ; 
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(20, 45, WIDTH MSG, YELLOW, BLACK) ; 
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(sy 4, WALL LENGTH MSG(1), YELLOW, BLACK) 
( 4, 4, WALL _LENGTH_MSG(2), YELLOW, BLACK) 
( 5, 4, WALL LENGTH MSG(3), YELLOW, BLACK) 
( 6, 4, WALL LENGTH MSG(4), YELLOW, BLACK) 
( 7, 4, WALL LENGTH MSG(5), YELLOW, BLACK) 
( 8, 4, WALL LENGTH MSG(6), YELLOW, BLACK) 
( 9, 4, WALL _LENGTH_MSG(7), YELLOW, BLACK) 
(alo 4, WALL LENGTH MSG(8), YELLOW, BLACK) 
(11, 4, WALL LENGTH MSG(9), YELLOW, BLACK) 
(12, 4, WALL LENGTH MSG(10), YELLOW, BLACK 
(13, 4, WALL LENGTH MSG(11), YELLOW, BLACK 
(14, 4, WALL LENGTH MSG(12), YELLOW, BLACK 
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(23, 27, " Press any key to continue ", BL 


(PAUSE, CHAR); 
FIN DRAWING; 


end FINOPT DRAWINGS; 
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YELLOW, BLACK) ; 


UB? GvAN) > 


== Title >; EATENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS: 
== : A COMPUTER OPTIMIZATION 
== AVEROL : John Reynold Gensure 

-~- Date ; June 1992 


package seiner aT gia Perens 


procedure MULTIPLE NO OPT(UNITS : in INTEGER 
CONVERT DIST ; in FPEOAT. 
CONVERT TEMP ; in PLOAT; 
GC : in FLOAT; 
GRAVITY ¢ in FPROAT- 
WALL LENGTH : in out FLOAT 
WALL LENGTH UNITS : in STRING; 
WALL WIDTH : in out FLOAT 
WALL WIDTH UNITS : in STRING; 
LENGTH ; in out FLOAT 
LENGTH_UNITS : in STRING; 
HEIGHT $ in out PLOAT 
HEIGHT UNITS ¢ in STRING. 
WIDTH : in out FLOAT 
WIDTH UND ES : in STRING; 
SPACING : in out FLOAG 
SPACING UNITS : in STRING; 
NUM_FINS : in out FLOAT: 
NUM _ FINS UNITS : in STRING; 
DENSITY ¢ in out FLOAT; 
DENSITY UNITS : in STRING; 
oPECIETC  HEAr >: in out FLOAm 
SPECIFIC HEAT UNITS : in STRING; 
K : in out FLOAT 
K_ FLUID ‘ in out EFEOGaa. 
K UNITS : in STRING; 
NU : in out PLOAG 
NU UNITS >: in STRING, 
T_ AMBIENT ¢ in out FLOA: 
T WALL : in out FLOAZ 
T UNITS : in STRING; 
Q >: in out FLOAT 
Q UNITS : in STRING); 
procedure MULTIPLE MAX FIN(UNITS : in INTEGER; 
CONVERT DIST >: in FLOAT; 
CONVERT TEMP : in PLOAT, 
Gre 7 : in FLOAT; 
GRAVITY : in FLOAT; 
WALL LENGTH ¢ in out FLOAT 
WALL LENGTH UNITS : in STRING; 
WALL WIDTH > in out FEOAGE 
WALL WIDTH_UNITS ¢: in STRING, 
LENGTH : in out FLOAT; 
LENGTH UNITS : in STRING; 
HEIGHT — : in out FLOAT; 
HETGHT UNITS >: in STRING; 
WIDTH : in out FLOAT; 
WIDTH UNITS : in STRING; 


69 


SPACING 
SPACING UNITS 

NUM FINS 

NUM FINS UNITS 
DENSITY 

DENSITY UNITS 
SPECIFIC HEAT 
SPECIFIC HEAT UNITS 
K 

K_ FLUID 

K UNITS 

NU 

NU_UNITS 

T AMBIENT 

T WALL 

T UNITS 


Q 
Q UNITS 


pucecauce MULTIPLE MAX O(UNITS 


end Br NOrlr MULTIPLE; 


CONVERT DIST 
CONVERT TEMP 

GC 

GRAVITY 

WALL LENGTH 
WALL LENGTH UNITS 
WALL WIDTH 

WALL WIDTH UNITS 
LENGTH 

LENGTH UNITS 
HEIGHT 

HEIGHT UNITS 
WIDTH 

WIDTH UNITS 
SPACING 

SPACING UNITS 
NUM FINS 

NUM FINS UNITS 
DENSITY 

DENSITY UNITS 
SPECIFIC HEAT 
SPECIFIC HEAT UNITS 
K 

K FLUID 

K UNITS 

NU 

NU_UNITS 

T AMBIENT 

T WALL 

T UNITS 

Q 

Q UNITS 
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out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
Sut ELOCAT; 
STRING; 
out FLOAT; 
STRING; 
OueG ET LOAL; 
out FLOAT; 
STRING; 
OUE wEOn Tl: 
STRING; 
out FLOAT; 
Oulu BOAT > 
STRING; 
out FLOAT; 
SIRING); 


INTEGER; 
FLOAT ; 
FLOAT ; 
FLOAT ; 
FLOAT ; 

out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
Oljewe FLOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
out FLOAT; 
STRING; 
out FLOAT; 
STRING) ; 


== Tigete : EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS: 
a, : A COMPUTER OPTIMIZATION 


== AUenor : John Reynold Gensure 
——) Date ; ndune wo 32 
with TEXT IO, COMMON DISPLAY TYPES, TTY, CURSOR, FINOPT COMMON, 


GENERIC ELEMENTARY FUNCTIONS, FINOPT PICTURES; 
use TEXT IO, COMMON DISPLAY TYPES, FINOPT COMMON; 
package body FivOrY MULTIERE@is 

package FLOAT INOUT is new FLOAT IO(FLOAT) ; 
package MY ELEMENTARY FUNCTIONS is 


new GENERIC ELEMENTARY FUNCTIONS (FLOAT) ; 
use FLOAT INOUT, MY ELEMENTARY FUNCTIONS; 


procedure MULTIPLE NO OPT(UNITS : in INTEGER; 
: CONVERT DIST : in FEROAT: 
CONVERT TEMP : in) Pros, 
GC : in FLOAT; 
GRAVITY : in FLOAT; 
WALL LENGTH : in out FLOAT 
WALL LENGTH UNITS : in STRING. 
WALL WIDTH : in out FLOAT; 
WALL WIDTH UNITS : in STRING; 
LENGTH ; in out FLOAT 
LENGTH _UNITS : in STRING; 
HEIGHT >: in out FLOAT; 
HEIGHT UNITS : in STRING; 
WIDTH $$ in out FLOAT 
WIDTH UNITS : in STRING; 
SPACING ; in out FLOAT: 
SPACING UNITS ; in STRING, 
NUM_FINS ¢ in out FLOAT. 
NUM FINS UNITS : in STRING; 
DENSITY : in out PRLOAT: 
DENSITY UNITS ;: in STRING; 
SPECIFIC HEAT >: in out FLOAT 
SPECIFIC HEAT UNITS : in STRING; 
K : in out FLOAT, 
K_ FLUID : in out FLOAT 
K_ UNITS : in STRING; 
NU ¢: in out FLOAT 
NU UNITS : in STRING; 
T AMBIENT : in out FLOAT; 
T WALL : in out FLOAR 
TRONS : in STRING; 
ou : in out FLOAT, 
OUUNT ES : in STRING) 1s 
NUMBER OUT : STRING( 1.2 foe 
CHAR :; CHARACTER; 
PAUSE, NUM PIN ere : INTEGER; 
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PERIMETER, AREA, M, EFFICIENCY, 
DELTA_T, T TIP, T AVG, BETA, MU, 

RAYLEIGH CHANNEL, NUSSELT CHANNEL, H, 

AREA _BASE, AREA FIN, AREA TOTAL  ELOAT, 


begin 


—— eT Eee 


emcee mw mm cm ce cr we wc ce we wc mc cr rm ww ww ee ee ie oe oe 


FINOPT PICTURES.INPUT MSG; 
GET _INPUT (WALL _ LENGTH, “Length of the fin placement area", 32, 
WALL _ LENGTH _ UNITS, Zoe tS) 
GET INPUT (WALL WIDTH, "Width of the fin placement area", 31, 
WALL WIDTH UNITS, 2, 14); 
Sie Nea booth bengeh ef each fin’, 18, LENGTH UNITS, 2, 15); 
Ce cm Gt nel ghe sot Cachetan , 18, HEIGHT UNITS, 2, 16); 
GET INPUT (WIDTH, MWidth ofeach Ein, 17, VEDGRSUNT ES, 2,8 11); 
GET INPUT (SPACING, Poedeiiry OCtWweehmacins , 20, SPACING UNITS, 2, 
18); 
NOM FENS <= (WALL WIDTH-WIDTH) / (SPACING+WIDTH) ; 
NUM FINS <= NUM sBiNS 20. 49999999999; 
NUM __ BINSe et. = ear EGER (NUM CE ENS )7; 
NUM _ FINS — SENT >= “NUMBEINS _INT+1; 
NUM _ FINS := FLOAT (NUM _ FINS ENT; 
CET _INPUT(NUM_FINS, "Number of fins, default is maximum number", 
41, NUM FINS UNITS, 4, 19); 
TiyvseUl (23,m20,) “Press any key to continue “, BLUE, CYAN); 
TEY.GEYr (PAUSE, CHAR); 
FINOPT PICTURES.INPUT CONT MSG; 
if (UNITS = 2) then 
Sri EOE DENS Bini DenslEyso£ surrounding fluid”, 
267 DEN SityY UNITS, 3,13); 
else 
CUE EO @BENSt TY, Density of Surrounding fluid”, 
267. DENStiyY UNITS, 6, 13)? 
end if; 7 
if (UNITS = 2) then 
Sie or hcl Ee CHEAT, specitile heat of surrounding fluid", 
34, SPECIFIC SEAT 2 UNITS, 15, 14); 
GET INPUT (K, "Thermal GOnauctEILVity OL material, k”, 35, 
PaUiens red 15)? 
GET INPUT (K_ FLUID, 
"Thermal conductivity or surrounding fluid, k”, 44, 
UNL TS elg, bo). 
Sieve inemdes Ce ViIScOsity Of Surrounding fluid”, 
Op NULUNINES 6, 19) 7 
else 
Coie INEUT(SPECIPIC HEAT. specitie heat of surrounding fluid", 
S47 OP ECLELe DHEATSUNITS;, i250 14); 
GET INPUT (K, "Thermal conductivity of material, k", 35, 
KUN is, 117. lo); 
GET _INPUT(K_ FLUID, 
"Thermal conductivity GOf=surrounding fluid, k", 44, 
K UNITS, 11, 16); 


[ee 


GET INPUT(NU, "Kinematic viscosity of Surroundingm@e tomo 

40, NU_UNITS, 5, 17); 
end if; 
GET INPUT(T AMBIENT, "Ambient Temperature”, 19, T UNITS, so, e0 a 
GET | _INPUT(T WALL, “Wall Temperature (au T UNGese oO, Loe 
TRY GEUD (2 oeeenee Preece any key to continue ™, BLUE, CYAN); 
TTY.GEI “(EAUSE, CHAR), 


—_— ce ee ee ee ee ee ee ee ee ee 


== Calculations (Assume Tip is Insulated) and Length >> Width i 


em re ee es we es ee we we we ee ee wee ee ee ee ee ee ee ee 


T AVG := (T_WALL+T AMBIENT) /2.0; 

BETA := 1.0/(T_AVG+CONVERT TEMP) ; 

DELTA T := T WALL-T AMBIENT; 

MU := (NU*DENSITY)/G C; 

RAYLEIGH CHANNEL := ((DENSITY**2) *GRAVITY*BETA* SPECIFIC HEAT 
* ( (SPACING/CONVERT_DIST) **4) *DELTA_T) / (MU* (LENGTH/CONVERT_ DIST) 
*K FLUID) ; 

NUSSELT CHANNEL := ((576.0/ (RAYLEIGH CHANNEL**2) ) 

+ (2.873/SQRT (RAYLEIGH CHANNEL) )) **(-0.5); 

H := (NUSSELT CHANNEL*K FLUID) / (SPACING/CONVERT DIST); 
PERIMETER := 2.0*LENGTH/CONVERT DIST; 

AREA := (WIDTH/CONVERT DIST) * (LENGTH/CONVERT_ DIST) ; 

M := SQRT((H*PERIMETER) / (K*AREA) ) ; 

EFFICIENCY := (TANH (M*HEIGHT/CONVERT DIST) ) 

/ (M*HEIGHT/CONVERT DIST) ; 

AREA BASE := 


( (WALL | WIDTH/CONVERT DIST) * (WALL LENGTH/CONVERT_DIST) ) 
= (NUM © FINS* (LENGTH/CONVERT _ DIST) * (WIDTH/CONVERT __ DiS lee. 


AREA FIN := NUM_FINS* (2. O* (HEIGHT/CONVERT _DIST) 
* (LENGTH/ CONVERT _ Diol) oy 
AREAL TOTAL. = AREA BASE (EP PFICTENCY~AREAR@ Te, 
o— ~ H*AREA | TOTAL* DELTA et; 
TTL Ee = oh _AMBIENT+ (DELTA _ T/COSH (M*HEIGHT/CONVERT_ DIST) ); 
ace OUEDUES =s 


TT i i er i ar Der ie elo eee a ed 


FINOET = PICTURES. OUTPUT _MSG; 

TTY. PUT (PSenno@sa 4 Inputs - BRIGHT WHITE, GREEN) ; 

TTY.PUT ( 7, 1, “Length of the fin placement area = 
YELLOW, BEACK) > 

PUL (NUMBER OUT, WALL LENGTH, 4) She 

TTRYMEUT aC je sae- NUMBER OUT, YELLOW, BLACK, 

TTY. PUT 7,59 ware LENGTH __ UNITS, YELLOW, BLACK) ; 

TRY402U Tee le "Width of the fin placement area = 
YELLOW, BLACK); 

PUT (NUMBER OUT, WALL WIDTH, 1.3 es 

TLY;cUl “Cs, 42, NUMBER OUT, YELLOW, BLACK) ; 

TIrY Ur (7 Sooo, WALL WIDTH UNITS, YELLOW, BLACK) ; 

TTY.PUT ( 9, 1, “Length or cacheaan = 
YELLOW, BLACK); 

PUT (NUMBER _OUT, LENGTH, 4, 3); 

TTY.PUT ( 9, 48, NUMBER OUT, YELLOW, BLACK); 

Tle Wie (eo ero Oe LENGTH UNITS, YELLOW, BLAGK Ee; 

TTY. PUT (10,. 1, “Height of cach eta = 


Tee 


YELLOW, BLACK) ; 

PUL (NUMBER OUT, HELGHT, 4,.-3) ; 

ery Pur Le 48, NUMBER OUT, YELLOW, BLACK) ; 
Pied elon so eR eiGhP UND Ss, YELLOW, BLACK) ; 
Piv-cOoreCLl 1, “Width Of each fin 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, WIDTH, (iS 9) i 

DEV bUr stii, 46, NUMBER OUT, YELLOW, BLACK) ; 
tiverPur (il, 39, WIDTH UNITS, YELLOW, BLACK) ; 
TTY.PUT (12, 1, "Spacing between fins 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, SPACING, 4, 3)¢ 

moy PUL 2, 45, NUMBER OUT, YELLOW, BLACK) ; 
Tivebur (12, a9, SPACING UNITS, YELLOW, BLACK) ; 
fiverUr (13, 15 “Number of fins 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NUM_FINS, 4, 3); 

hee rUr (13,48, NUMBER OUT, YELLOW, BLACK); 
DPrEyverUr (13, 59; NUM FINS UNITS, YELLOW, BLACK) ; 
Miv;PUr (14, 1, “Densiey “cr esurrounding fluid 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, DENSITY, eae) 7 

tore PUL (14> ~46, NUMBER OUT, YELLOW, BLACK) ; 
MeyawrUT. (14. 59, DENSITY UNITS, YELLOW, BLACK) ; 
ive ries | mespeciiic heat Of Surrounding fluid 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, SPECIFIC HEAT, 4, 3); 

Mie PUL (bo, a6, NUMBER OUT, YELLOW, BLACK) ; 

PUES Ged) fel ST (Gs ora JS Ye SPECIFIC HEAT UNITS, YELLOW, BLACK) ; 
tivebUr (16, 1, “Thermal conductivity of material, k 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, K, 4, 3); 

ihe bUr (16, 48, NUMBER OUT, YELLOW, BLACK) ; 
Tineewe Or 16, 39, K_UNITS, YELLOW, BLACK) ; 

ieee Oiels), 17 Thermal conductivity of surrounding fluid, k 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, K FLUID, 4, 3); 

TTY.PUT (17, 48, NUMBER OUT, YELLOW, BLACK); 

Mire FUT (1/, 59, K_UNITS, YELLOW, BLACK) ; 

mir, FUT (13, 1, “Kinematic viscosity of surrounding fluid 
YELLOW, BLACK); 

PUT (NUMBER OUT, NU, 4, 3); 

titeseUr «18, 48, NUMBER OUT, YELLOW, BLACK) ; 
Rivero. (18, 59, NU _ UNITS, YELLOW, BLACK) > 

five Uie(l9, 1, “Ambient Temperature 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, T_ AMBIENT, 4, 3); 

TrIyv.eUL (19, 48, NUMBER _ OUT, YELLOW, BLACK) ; 
PivVeeur (19, 59, T_UNITS, YELLOW, BLACK) ; 

TTY.PUT (20, 1, “Wall Temperature 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, T WALL, 4, 3); 

Maseru (20, 46, NUMBER OUT, YELEOW, BLACK); 
tireeur (20, 59, T UNITS, YELLOW, BLACK) ; 

TTY.PUT (23, 27, “ Press any key to continue ", BLUE, CYAN); 
Mi veclh Tle. PAUSE, CHAR) > 
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FINOPT PICTURES.OUTPUT CONT MSG; 

TTY.PUL (6763578 SOuueout cua BRIGHT WHITE, GREEN) ; 

TTY.PUT ( 8, 1, “Heat transferred sawayvbyseiem: im seeee = 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, oO; 4. 30; 

TEV EUr ore 46, NUMBER OUT, YELLOW, BLACK) ; 

Tov. col reno, Q UNITS, YELLOW, BLACK) ; 

TTY.PUT ( 9, 1, “Ine fin eftrereney) = 
YELEOW, “-BLACK) 

PUT (NUMBER OUT, EPPICIENGY. 4 =) 

Try2PUr (. Sea NUMBER OUT, YELLOW, BLACK); 

TTY.PUT (10, 1, “The temperature at the tip of the fins = 
YELLOW, BLACK) ; 

BUT (NUMBER OUT, te alae a 6S) 

TTY. PUL (102 246 NUMBER OUT, YELLOW, BLACK) ; 

TEV «PULSE. oo, TUNIS, YELLOW, BLACK) ; 

TTY.PUT (11, 1, "Channel Rayleigh number = 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, RAYLEIGH CHANNEL, 4, 3); 

TEY.eULT (id. 4:68 NUMBER _ OUT, YELLOW, BLACK) ; 

TTY.PUT (12, 1, "Channel Nusselt number = 
YELLOW, BLACK); 

PUT (NUMBER_OUT, NUSSELT CHANNEL, 4, 3); 

TTY.PUT (12, 48, NUMBER_OUT, YELLOW, BLACK) ; 

TTY.PUT (23, 27, ™ Press any key to continue “, BLUE Ieee 
TTY.GET (PAUSE, CHAR) ; 


end MULTIPLE NO OPT; 


procedure MULTIPLE MAX PIN (Units : in INTEGER. 
CONVERT DIST : in FLOAG; 
CONVERT _TEMP : in FLOAT: 
Gace : in ELOAG; 
GRAVITY : in FLOAT; 
WALL _ LENGTH >: in out FEOAM 
WALL LENGTH _UNITS : in SERING; 
WALL WIDTH : in out FLOAT, 
WALL WIDTH_UNITS : in STRING; 
LENGTH : in out FLOAR; 
LENGTH_UNITS ; in STRING; 
HEIGHT : in out FLOAT 
HEIGHT UNITS : in STRING; 
WIDTH >: in out FLOA 
WIDTH UNITS °: in STRENG- 
SPACING > in out FLOAR 
SPACING UNITS : in STRING, 
NUM FINS > in out FLOAT 
NUM FINS UNITS : in STRING; 
DENSITY _ : in out FLOAT; 
DENSITY UNITS : in STRING; 
SPECIELG SHEL : in out FLOAT? 
SPECIFIC “HEAL AUhN Es : in STRING; 
K - _ : in out FLOAT; 
K FLUID : in out FLOAG 
K UNITS : in STRING; 
NU >: in out FLOA 


eS 


NU_ UNITS ao ole ING; 


T AMBIENT feheroue FLOAT : 

T WALL Tn eout FLOAT; 

UNE TS : in STRING; 

Q seam, oul FLOAT; 

OsUNETS ; im STRING) is 
NUMBER OUT oe rNG (ll 0); 
CHAR : CHARACTER; 
PAUSE, NUM_FINS_ INT : INTEGER; 


PERIMETER, AREA, M, EFFICIENCY, 
DEura T, Tr ?rP, TF AVG, BETA, MU, 

RAYLEIGH CHANNEL, NUSSELT CHANNEL, H, 

AREA BASE, AREA FIN, AREA TOTAL, P ; FLOAT; 


begin 


ELNOPT SP ICTURES. INPUT MSG; 
GET INPUT (WALL LENGTH, "Length of the fin placement area", 32, 
WALL LENGTH UNITS, 2, 14); 
GEL MMALE WEE, ss Width ol the fin placement area", 31, 
WALL WIDTH UNITS, 2, 15); 
GET INPUT (LENGTH, Hlhecngtaeworseach fin , 18, LENGTH UNITS, en oe a 
Cele lieUl(HEIGHi ele ont of “each fin’, 18, HEIGHT UNITS, 2, 17); 
GET INPUT(WIDTH, "Width of each fin", 17, WIDTH UNITS, 2, 18); 
if (UNITS = 2) then 
GE EUmweENSstiy, Density of surrounding fluid", 28, 
DENSITY UNITS, Ge 9) 
else 
Sori DENobivees DelicteysoOnhesurrounding fluid”, 28, 
DENSI yr SUNITS; Gra 9); 
end if; 
tiv. PU (25,5 27,)5 Eress any key to continue “, BLUE, CYAN); 
TTY.GET (PAUSE, CHAR); 
FINOPT PICTURES.INPUT CONT MSG; 
at (UNITS = 2) then 
aie veUR(orncit TesHEAr, “specitive heat of surrounding fluid", 
bo OL ECIE IG HEATPUNITS, 15, 14); 
Grieve U LK thermal “conductivity Of material, k”, 35, 
PUNT @S, 17,15); 
CET SINeUT (KR FLUID, 
Lwuerma beconaductivaty of surrounding fluid, k", 44, 
KeUNTTS; 17, 16); 
Seta NeUr( NU Kinematic Viscosity of surrounding fluid”, 
40, NU_UNITS, 6, 17); 
else 
Sic UMorne tr terneAl; ss specific heat of surrounding fluid”, 
ey eSeheIrIC HEAT UNITS, 12, 14); 
CHU thiermnal Gonauetivity OF material, k", 35, 
Ke UNDE S sie 15); 
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GET INPUT RK ELUID, 

"Thermal conductivity of SUurrounmaing st aie ee 

ie (UNI, Ge 

GET INPUT(NU, “Kinematic viscosity of Surroundings auees 

ONDE UN TS sey )n 
end if; 
GET INPUT(T AMBIENT, “Ambient Temperature”, 19, T UUNTTS7 =o 
GET INPUT(T WALL, “Wall Temperature”, 16, T UNTTS 7s, 
TTY.PUT (23, 2/, " Press any key to continue “, BLUB se: en 
TITY. GET (PAUSE, CHAR) ; 


mcm cc cc ce ce cc cc ce cr cc cc cr cc cc cc cc cr cc cc cs ce ee we ee ee ce es we ee ee es es es es we ee ee ee ee ee 


== Calculations (Assume Tip is Insulated) and Length >> Width -- 
T AVG := (T_WALL+T AMBIENT) /2.0; 
BETA := 1.0/(T_AVG+CONVERT_ TEMP) ; 
DELTA_T := T WALL-T AMBIENT; 
MU := (NU*DENSITY)/G C; 
P := ((DENSITY**2) *GRAVITY*BETA*SPECIFIC HEAT*DELTA T) 
/ (MU* (LENGTH/CONVERT DIST) *K_ FLUID); 
SPACING := CONVERT DIST* (4.647 (Ps=4@E25) in, 
NUM_FINS := (WALL WIDTH-WIDTH) / (SPACING+WIDTH) ; 
NUM FINS := NUM_ FINS-0. 49999999999; 
NUM _ FINS Nae ~ INTEGER (NUM__ FINS) ; 
NUM FINS _INT := NUM FINS _INT+1; 
NUM _ FINS := FLOAT (NUM __ FINS ala) 
RAYLEIGH CHANNEL = ((DENSITY**2) *GRAVITY*BETA*SPECIFIC HEAT 
* ((SPACING/CONVERT_DIST) **4) *DELTA_T) / (MU* (LENGTH/CONVERT_ DIST) 
*K FLUID) ; 
NUSSELT CHANNEL := ((576.0/ (RAYLEIGH CHANNEL**2) ) 
+(2.873/7SORT (RAYLEIGH CHANNEL (0 oie 
H := (NUSSELT CHANNEL*K FLUID) /(SPACING/CONVERT DIST); 
PERIMETER := 2.0*LENGTH/CONVERT DIST; 
AREA := (WIDTH/CONVERT _DIST) * (LENGTH/CONVERT _ DIST); 
M := SQRT((H*PERIMETER) / (K*AREA) ) ; 
EFFICIENCY := (TANH (M*HEIGHT/CONVERT DIST) ) 
/ (M*HEIGHT/CONVERT_ DIST) ; 
AREA _BASE := 
((WALL WIDTH/CONVERT DIST) * (WALL LENGTH/CONVERT DIST) ) 
- (NUM_FINS* (LENGTH/CONVERT DIST) * (WIDTH/CONVERT DIST) ); 
AREA FIN := NUM _FINS*(2.0* (HEIGHT/CONVERT DIST) 
* (LENGTH/CONVERT DIST) ); 
AREA TOTAL := AREA _BASE+(EFFICIENCY*AREA_ FIN) ; 
o-= ~H*AREA | TOTAL*DELTA Ty 
ToT LE =r _AMBIENT+ (DELTA | T/COSH (M*HEIGHT/CONVERT DIST) ) ; 


cme ccm mm cc ee ee ee ee ee ee ee ee ec cc ccc ec cc ce ce cc cc cc ce ee ee ee ee ee ee ee ee ee ee ee oe 


FINOPT PICTURES. OUTPUT MSG, 

TTY.PUT ( 5, 36, " Inputs ", BRIGHT WHITE, GREEN) ; 

TTY.PUT ( 7, 1, "Length of the fin placement area =o 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, WALL LENGTH, 4, 3); 

TTY. Pur he 48, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT ( 7, 59, WALL LENGTH_UNITS, YELLOW, BLACK); 


7/ 


TTY.PUT ( 8, 1, “Width of the fin placement area 
YELLOW, BLACK) ; 

lal0 pb (NUMBER OUT, WALL WIDTH, Aven 3) 

TtVeeura ( 6; 46, NUMBER _ OUT, YELLOW, BLACK); 
TMiy.ePUr (6, 59, WALL WIDTH UNITS, YELLOW, BLACK) ; 
ive PUT 97 1, “Length of each fin 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, LENGTH, 4, 3); 

mryeeUur { 9, 48, NUMBER OUT, YELLOW, BLACK); 

Mire eUbeet 9, 39, LENGTH UNITS, YELLOW, BLACK) ; 

iy. bUn (10, 4, Height of each fin 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, HEIGHT, 4, 3); 

ELY<-2UT “(10,° 46, NUMBER OUT, YELLOW, BLACK); 
iiverur (10, 59, HEIGHT UNITS, YELLOW, BLACK); 
MmeyveePUr (1 ol, “Width of each fin 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, WIDTH, 4, 3); 

teverorT (lil, 48, NUMBER OUT, YELLOW, BLACK); 
re Ure li 59, WIDTH UNITS, 1ELLOW, BLACK); 

ir ePUr (2, lp Density of Surrounding fluid 
YELLOW, BLACK); 

ET (NUMBER_OUT, DENSITY, 4 3) > 

Diver Uiet(ie, 46; NUMBER OUT, YELLOW, BLACK); 
owe et i2.. 59, DENSITY UNITS, YELLOW, BLACK) ; 
Pico s ol.  Specihae Heat or Surrounding fluid 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, SPECIFIC HEAT, 4, 3)3 

mEryY.rUr {(l3, 46, NUMBER OUT, YELLOW, BLACK) ; 

mir. PUT (13, 59, SPECIFIC HEAT UNITS, XE LOW, ~ BLACK); 
mry.PUT (14, 1, “Thermal conductivity of material, k 
YELLOW, BLACK) ; 

Et: (NUMBER OUT, Kw 4 ol 

MrY PUT (id. 49, NUMBER OUT, YELLOW, BLACK) ; 

mary. PUL sG14, 59, K_ UNITS, YELLOW, BLACK); 

Wee tame owl as inermal, "Genaductivity of surrounding fluid, k 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, K_FLUID, a3) 

tive eUr (15,48, NUMBER OUT, YELLOW, BLACK); 

Mey eeUT 15, 59, K UNITS, YELLOW, BLACK) ; 

Pere Uletlon lp) "Kinematic viscosity of surrounding fluid 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, NU 24.5.3) 5 

TiYoaeut (16, 48, NUMBER OUT, YELLOW, BLACK); 
Rie (1 6.) 59, NU_UNITS, YELLOW, BLACK) ; 

TTY.PUT (17, 1, “Ambient Temperature 

YELLOW, BLACK) ; 

EU tr (NUMBER_OUT, T_ AMBIENT, 4, 3); 

ire: (1/7, 46, NUMBER OUT, YELLOW, BLACK) ; 

Mor. bOr (1), 59, T_ UNITS, YELLOW, BLACK) ; 

TTY.PUT (18, 1, "Wall Temperature 

YELLOW, BLACK); 

PUT (NUMBER _ OUT, T WALL, sia So 

mry.PUT (€16, 48, NUMBER_OUT, YELLOW, BLACK) ; 
Ever UT Nae, 59, T UNITS, YELLOW, BLACK) ; 

TTY.PUT (23, 27, “” Press any key to continue ", BLUE, CYAN); 
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i 


TTY.GET (PAUSE CHAR): 
PINOPT. PICTURES, OULEUl Coltaice, 


TTY.PUT ( 6, 35, “ Outputs ", BRIGHT) WHiTe, Geer 
TTY.PUT ( 8, 1, "Heat transferred away by the fins, 


YELLOW, BLACK) ; 
PUT (NUMBER OUT, QO, 472233 


TTY.PUT ( 8, 48, NUMBER OUT, YELLOW, BLACK) ; 
TTY.PUT ( 8, 59, QO UNITS, YELLOW, eiAewe 


TLEY.PUT. A So aeie, "Spacing between fins 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, SPACING, 4, 3); 


TTY.PUT ( 9, 48, NUMBER OUT, YELLOW, BLACK); 
TTY.PUT ( 9, 59, SPACING UNITS, YELLOW, sence 


TTY.PUT (10, 1, "Number of fins 
YELLOW, BLACK); 
PUT (NUMBER OUT, NUM FINS, 4, 3); 


TTY.PUT (10, 48, NUMBER OUT, YELLOW, BLACK); 
TTY.PUT (10, 59, NUM FINS UNITS, YELLOW, BLACK); 


TTY.PUT (11, 1, "The £fin effimerencey 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, EFFICIENCY, 4, 3); 


TEY.2Ur (his 48, NUMBER OUT, YELLOW, BLACK) ; 


q 


TTY.PUT (12, 1, “The temperature at the tip of the fins 


YELLOW, BLACK) ; 
PUT (NUMEER OUT, © aure 7 4,2), 


TTY.PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 
TTY.PUT (12, 59, T UNITS, YELLOW, BLACK); 
TTY.PUT (13, 1, "Channel Rayleigh number 


YELLOW, BLACK) ; 


PUT (NUMBER_OUT, RAYLEIGH CHANNEL, 4, 3); 
TTY.PUT (13, 48,, NUMBER OUT, YELLOW, @BEAC.. 


TTY.PUT (14, 1, "Channel Nusselt number 
YELLOW, BLACK); 


PUT (NUMBER OUT, NUSSELT CHANNEL, 4, 3); 
TTY.PUT (14, 48, NUMBER OUT, YELLOW, BLACK) ; 
TTY.PUT 423, 27," (Press any Key to Concrnuc 


TTY.GET (PAUSE, CHAR) ; 
end MULTIPLE MAX FIN; 


procedure MU LEIP LE MACSOCUNITS 
CONVERT DIST 
CONVERT TEMP 
GC 
GRAVITY 
WALL_ LENGTH 
WALL LENGTH UNITS 
WALL WIDTH 
WALL WIDTH UNITS 
LENGTH 
LENGTH UNITS 
HEIGHT 
HEIGHT UNITS 
WIDTH 
WIDTH UNITS 
SPACING 


ee, 


in 
L)6) 
in 
in 
in 
158. 
in 
In 
in 
a0) 
In 
in 
nol 
Te 
in 
a6 9) 


BLUE, CYAN 


INTEGER; 
FLOAT ; 
FLOAT; 
FLOAT; 
ELOAT ; 

out FLOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
STRING: 
out FLOAT; 
STRING; 
out FOAL 
STRING; 
out FLOAT; 


SPACING UNITS incre ING; 


NUM FINS : in out FLOAT; 

NUM FINS UNITS : in STRING; 

OPA pS CIE é — neue, FLOAT; 

DENSITY UNITS ih wo TRENG; 

SPECIE TC HEAT an Oue FLOAT; 

SERCTR IC enna 2UNIT : in STRING; 

K in sOut ELOAT ;> 

Kae LUrTD fei Out FLOAT: 

K_ UNITS : in STRING; 

NU 2h eouteL LOAT > 

NU_UNITS Pein STRING; 

T AMBIENT Seiteout FLOAT ; 

T WALL Seneeoue ELOAT > 

T UNITS : in STRING; 

QO Sn Cut FLOAT ; 

Q UNITS eile otRInG) is 
NUMBER_OUT oS obRING (ile. 10); 
CHAR >: CHARACTER; 
PAUSE, NUM_FINS INT : INTEGER; 


PERIMETER, AREA, M, EFFICIENCY, 

DELTA T, T TIP, T AVG, BETA, MU, 

RAYLEIGH CHANNEL, NUSSELT CHANNEL, H, 

AREA BASE, AREA FIN, AREA TOTAL, P : FLOAT; 


begin 


BIMVOPT PICTURES. INPUT MSG; 
Siw Uli beLENGihy se bengthwor the fin placement area’, 32, 
WALL LENGTH_UNITS, 2, 14); 
SEES INEUL(WALINWIDTH, “Width of the £iin placement area", 31, 
WALL WIDTH UNITS, 2, 15); 
eae NEUT(GENGIH, Length of each fin’, 18, LENGTH UNITS, 2, 16); 
Sole ieUl (HeiGii oe Helghtsot each fin, 16, HEIGHT UNITS, 2, 17); 
GET INPUT(WIDTH, “Width of each fin", 17, WIDTH_UNITS, 2, 18); 
if (UNITS = 2) then 
GELMINEUR(DENSDETY, “Density Of Surrounding £luid™, 28, 
DENS PLY SUNIL S 56 paelo)) ; 
else 
GET INPUT(DENSITY, “Density of surrounding fluid", 28, 
DENSITY UNITS, 6, 19); 
ena sit; 
TrY.PUT (23, 27, “ Press any key to continue ", BLUE, CYAN); 
TTY.GET (PAUSE, CHAR); 
PINOPT, PICTURES. INPUT CONT MSG; 
if (UNITS = 2) then 
CouevEOD SPhpCTRPIGSHEAT, “specific heat of surrounding ed biats ae 
34, SPECIFIC HEAT UNITS, 15, 14); 
GET INPUT(K, “Thermal conductivity of material, k", 35, 


80 


AUN ir male aerate 
GER INEU RS hEy LB 
"Thermal conductivity of surrounding fluid ee 
ROUNDS a te), 
GET INPUT(NU, “Kinematic viscosity of Surroundtigst euaeeeee 
40, NU_UNITS, 6, 17); 
else 
GET INPUT(SPECIFIC HEAT, “Specific heat of surrounding 2 eames 
34, SPECIFIC HEAT UNITS, 12, 14a. 
GET INPUT(K, “Thermal conductivity of materiahy see 
KOUNDTIS;;il;, Loy 
GET SINPUE(K PLUG, 
"Thermal conductivity of surrounding fluid, k", 44, 
UN Enon bare 
GET INPUT(NU, "Kinematic viscosity of surrounding er ives 
40> NUZUNITS,. 2710); 
end if; 
GET _INPUT(T_ AMBIENT, “Ambient Temperature”, 19, T UNITS) §o 7am 
GET INPUT(T WALL, “Wall Temperature”, 16, T UNITS) 327 
TTY.PUT (23, 27, “" Press any key to continue “, BLUE, Clie 
TTY.GET (PAUSE, CHAR); 


a i rr i i Nh A i i I  __ 


== Calculations (Assume Tip is Insulated) and Length >> Width as 
T AVG := (T_WALL+T_AMBIENT)/2.0; 
BETA := 1.0/(T_AVG+CONVERT_TEMP) ; 
DELTA_T := T_WALL-T_ AMBIENT; 
MU <=" (NUSDENSITYjyG oc; 
P := ((DENSITY**2) *GRAVITY*BETA*SPECIFIC HEAT*DELTA T) 
/ (MU* (LENGTH/CONVERT DIST) *K FLUID); 
SPACING := CONVERT DIST*(2. 7147 (P= (Oa2> jen, 
NUM_FINS := (WALL WIDTH-WIDTH) / (SPACING+WIDTH) ; 
NUM FINS := NUM FINS-0.49999999999; 
NUM_FINS_ INT := INTEGER(NUM_ FINS) ; 
NUM FINS INT := NUM FINS _INT+1; 
NUM FINS := FLOAT(NUM FINS INT); 
RAYLEIGH CHANNEL := ((DENSITY**2) *GRAVITY*BETA*SPECIFIC HEAT 
* ((SPACING/CONVERT_DIST) **4)*DELTA_T) / (MU* (LENGTH/CONVERT_DIST) 
*KOPLUED |: 
NUSSELT CHANNEL := ((576.0/ (RAYLEIGH CHANNEL**2) ) 
+(2.873/SORT (RAYLEIGH (CHANNEL) }\) =*(-O073) 
H := (NUSSELT CHANNEL*K_ FLUID) / (SPACING/CONVERT DIST) ; 
PERIMETER := 2.0*LENGTH/CONVERT DIST; 
AREA := (WIDTH/CONVERT DIST) * (LENGTH/CONVERT DIST); 
M := SQRT((H*PERIMETER) / (K*AREA) ); 
EFFICIENCY := (TANH (M*HEIGHT/CONVERT_DIST) ) 
/ (M*HEIGHT/CONVERT_ DIST) ; 
AREA BASE := 

((WALL WIDTH/CONVERT DIST) * (WALL_LENGTH/CONVERT DIST) ) 
— (NUM_FINS* (LENGTH/CONVERT DIST) * (WIDTH/CONVERT_DIST) ) ; 
AREA FIN := NUM FINS* (2.0* (HEIGHT/CONVERT_DIST) 
* (LENGTH/CONVERT DIST)); 
AREA TOTAL := AREA _BASE+(EFFICIENCY*AREA FIN) ; 
Q := H*AREA TOTAL*DELTA T; 
T TIP := T_AMBIENT+(DELTA_T/COSH (M*HEIGHT/CONVERT DIST) ); 
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emer ce ccc cr re we cr cr cr cr cs we wc cp rc cr cc ccc ce ce ce ee ee ee eee ee ee 


ee Ret tinetietiti ET 


FINOPT PICTURES.OUTPUT MSG; 

mivMenUn |S, 66, 9 Inputs “, BRIGHT WHITE, GREEN); 

TTY.PUT ( 7, 1, “Length of the fin placement area ae 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, WALL LENGTH, 4, Soo: 

TTY.PUT ( 7, 48, NUMBER OUT, YELLOW, BLACK); 

TTY.PUT ( 7, 59, WALL LENGTH UNITS, YELLOW, BLACK); 

TTY.PUT ( 8, 1, "Width of the fin placement area ee 
YELLOW, BLACK); 

PUT (NUMBER OUT, WALL WIDTH, 4, 5) 

ioreeor 4 8, 48, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT ( 8, 59, WALL WIDTH UNITS, YELLOW, BLACK) ; 

PtrseUrei oS, i, “Gength of each fin = a8 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, LENGTH, 4, 3); 

mtir.Pun ( 9, 48, NUMBER OUT, YELLOW, BLACK) ; 

Rives { 92°59, LENGTH UNITS, YELLOW, BLACK) ; 

ier. PUT (10, 1, “Height of each fin =", 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, HEIGHT, 4, 37; 

TTY.PUT (10, 48, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT (10, 59, HEIGHT UNITS, YELLOW, BLACK) ; 

ier Ue ed li 1) "Width of each fin =", 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, WIDTH, 4, 3); 

TTY.PUT (11, 48, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT (11, 59, WIDTH UNITS, YELLOW, BLACK) ; 

VWirune(l2, lj. Density ef surrounding fluid =", 
YELLOW, BLACK); 

PUT (NUMBER OUT, DENSITY, 4, 3); 

TTY.PUT (12, 48, NUMBER OUT, YELLOW, BLACK); 

TTY.PUT (12, 59, DENSITY UNITS, YELLOW, BLACK) ; 

ete cu le, it, Speclile heat of surrounding fluid =", 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, SPECIFIC HEAT, 4, 3); 

miVerUr (13, 48, NUMBER OUT, YELLOW, BLACK); 

tiyerur (13, 59, SPECIFIC HEAT UNITS, YELLOW, BLACK) ; 

Gover? (14, 1, “Thermal conductivity of material, k = 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, K, 4, 3); 

TTY.PUT (14, 48, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT (14, 59, K_ UNITS, YELLOW, BLACK) ; 

iri to, 1, thermal cenaductivity of surrounding fluid, k = ", 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K FLUID, 4, 3); 

TTY.PUT (15, 48, NUMBER OUT, YELLOW, BLACK); 

TTY.PUT (15, 59, K_UNITS, YELLOW, BLACK) ; 

hire PUut (16, 1, “Kinematic viscosity of surrounding fluid ; 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, NU, 4, Sie: 

PiworUr 116, 48, NUMBER OUT, YELLOW, BLACK) ; 

mtyY.PrUT (16, 59, NU UNITS, YELLOW, BLACK) ; 
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TTY.PUT (17, 1, “Ambient Temperature 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, T AMBIENT, 4, 3); 

TTY. PUM Civ ae NUMBER OUT, YELLOW, BLACK): 
TTY/PUrL “(2 eo T UNITS, YELLOW, BLACK) ; 

TTY.PUT (18, 1, “Wall Temperature 

YELLOW, BLACK Ia; 

PUT (NUMBER OUT, T WALL, 4, 3); 

TIYSEUT Cele ae NUMBER OUT, YELLOW, BLACK); 

TTY .PUT V6 8 we. O97 Teor S, YELLOW, BLACK) ; 

TTY.PUT (23, 27, “ Press any key to continue ~~, BLUE; wee 
TTY.GET (PAUSE, CHAR) ; 

FINOPT PICTURES. OUTPUT CONT MSG; 

TTY »PUT (6, 35, “Output soe BRIGHT WHITE, GREEN) ; 
TTY.PUT ( 8, 1, “Heat transferred away by the fins, q 
YELLOW, BEAGK):; 

PUT (NUMBER OUT, O74 oe 

TTY.PUL ( 8, 26, NUMBER OUT, YELLOW, BLACK) ; 
TTY.PUT ( 8, 59, Q UNITS, YELLOW, BLACK); 

TTY.PUT (39, 1, “Spacing betweeneetiiis 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, SPACING, Ao <3) 

TTY.PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TLY, Pum |. 902 oe SPACING UNITS, YELLOW, BLACK) ; 
TTY. PUT (10, 1, Number of fins 

YELLOW, BLACK); 

PUT (NUMBER _OUT, NUM FINS, 4, 3); 

TTY .PUL Gt 0. <467, NUMBER OUT, YELLOW, BLACK) ; 

TTY .PUT 22077 SS? NUM FINS UNITS, YELLOW, BLACK) ; 
TTY.PUT (li, 1,: “Wer tinvetitiveieney, 

YELLOW, BLACK); 

PUT (NUMBER OUT, ErrICIENCY, A Se 

TRY -2UL” (1d ee NUMBER OUT, YELLOW, BLACK) ; 
TTY.PUT (12, 1, “The temperature at the tip of the fins 
YELEOW ;) BLACK); 

PUT (NUMBER _OUT, T TIP, 4, 3); 

TTY ABUL VOU 2 ear NUMBER OUT, YELLOW, BLACK) ; 
TTY.PUL (i239, T UNITS, YELLOW, BLACK) ; 

TTY.PUT (13, 1, “Channel Rayleigh number 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, RAYLEIGH CHANNEL, 4, 3); 

TTY PUT Gs a6. NUMBER OUT, YELLOW, BLACK) ; 
TTY.PUT (14, 1, “Channel Nusselt number 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, NUSSELT CHANNEL, 4, 3); 

TTY -<PUT- {14,, 438, NUMBER OUT, YELLOW, BLACK) ; 
TTY.PUT (23, 27, “™ Press any key to continue “, BLUE CG. aie 
TTY <GET (PAUSE, CHAR): 


end MULTIPLE MAX Q; 


end FINOPT MULTIPLE, 
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eal Cale we ole OE DeswReeaecek HEAT SINKS FOR ELECTRONIC COMPONENTS: 
=-- : A COMPUTER OPTIMIZATION 
a AUChHOL : John Reynold Gensure 
=- Date : June 1992 
package FINOPT PICTURES is 

procedure THESIS MSG; 

euocedure FINOPT MSG; 

procedure INPUT MSG; 

peecedure INPUT CONT MSG; 

procedure OUTPUT MSG; 

peecedure OUTPUT CONT MSG; 


procedure EXIT MSG; 


suc FINOPT PICTURES; 
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-~-— Title 


-~ Author 


with 


use 


Date 


EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTES 


A COMPUTER OPTIMIZATION 


John Reynold Gensure 


June 1992 


COMMON DISPLAY TYPES, T1y,) Curcon, 


COMMON DISPLAY TYPES; 


package body FINOPT PICTURES is 


PAUSE 


CHAR 


begin 


CURSOR. 2NHLBET: 


TTY.CLEAR SCREEN; 


lg bes Ge) SE 
ile CAS = Oh 
Tiree UL 
Jide Cy 


YELLOW, 
fied be 3) Oak 


YELLOW, 
lee igh Go el Ok 


EEO, 
diggs Gos 0 0 ily 


YELLOW, 
TY. eur 


YELLOW, 
TTY.euUr 


YELLOW, 
fd es a 


YELLOW, 
TO eePUT 


YELLOW, 
TTY. PUT 


YELLOW, 
eee Ue: 


YELLOW, 
Petes Ud, 


YELLOW, 


(2pecor 
ce 
COs 7, 
(C76, 


RED) ; 
(Oo, LO 


RED) ; 
uO. LO, 


RED) ; 
A Ae 


RED) ; 
(lA ol, 


RED): 
Ci3;. 16. 


RED) ; 
(14, 16, 


RED) ; 
(lop Lo, 


RED) ; 
(ane sey 


RED) ; 
(i) eG, 


RED) ; 
C16 eG; 


RED) ; 


procedure THESPs sMsGas 


INTEGER; 


CHARACTER; 


"NAVAL POSTGRADUATE SCHOOL", YELLOW, BLACK); 
“Monterey, California", YELLOW, BLACK); 
“THESLS ,;, YELLOW bEAGr = 


- EXTENDED SURFACE HEAT SINKS 


vs FOR ELECTRONIC COMPONENZ >. 


ys A COMPUTER OPTIMIZATION 


i John Reynold Gensure 


" June 1992 
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DhiyeeunT (19) 16, "'~ Thesis. Advisor: Allan D. Kraus 


YELLOW, RED); 
iverkud 120) 165. 


YELLOW, RED); 
TTY. PUT (23, 27, “ Press amy key to continue ", BLUE, CYAN) ; 
TLY sGEr (PAUSE, (CHAR) ; 

end THESIS MSG; 


Emoceaure FINOPT MSG is 


PAUSE : INTEGER; 
CHAR : CHARACTER; 
begin 


TTY.CLEAR_ SCREEN; 
TTY.PUT (4, 34, "Welcome To", GREEN, BLACK); 


hirer ur se 18, ", YELLOW, GREEN) ; 
Poel Oo, 24,0 9. YELLOW, GREEN) > 
ioe eto, 927,, 47. LELLOW, GREEN): 
eee, ol, 9, YELLOW, GREEN); 
Dive PUr “87. S44, ~ ", YELLOW, GREEN) ; 
Mireur (e,, 41, ™“ (7 VELLOW, GREEN) ; 
TiyweUT (8) 3438, ~ 7) VELLOW, (GREEN) ; 
Mw (Sooo, , YELLOW, GREEN) ; 


a 
icweUl et O,uoe,  §, YELLOW, GREEN) ; 
ee Ul toy ol,)° ~, YELLOW, GREEN) ; 
Doel oO, «=6=6—6lhUm,lC6UX LOWS GREEN) ; 
EPEyorULS(S,ez4, “ “, YELLOW, GREEN); 
ieee Ul oze2d, — , YELLOW sGREEN); 
Rive eu (o, Sky § “', YELEOW, GREEN) ; 
ieee Ud, (9,7. 34, " ", YELLOW, IGREEN) ; 
Diver Ul (9,556, #"“, YELLOW, GREEN) ; 
Dive eUl Co, al, “ “, YELLOW, -<GREEN) ; 
Dieu “(95 45,)° °, YELNOW, GREEN) > 
fiver Ur (9, 50," *, YELLOW, GREEN) ; 
fivecur (9, 5], ; YELLOW, GREEN) ; 


Piven (S26,  " "=, YELLOW, GREEN) ; 
Dive (on Ol, >. YELLOW, GREEN) ; 
Deer tO, 18,5" ';, YELLOW, GREEN) ; 
Pir eeUl (lO, 24," ", YELLOW, GREEN} ; 
ier Ul LO, 2/767 "> YELLOW, GREEN) ; 
tee Ue LO; 29, YS YELLOW, GREEN); 
Divi eGkOe sl, << “,- YELLOW, GREEN) ; 
Piet rer 34, ~ ", YELLOW, GREEN) ; 
Peele, 50,5  , LELLOW, GREEN) ; 

Die PUr (10, 41, " 7) YELLOW, GREEN}; 


iiwervr (lO, 50, ~ ~, YELLOW, GREEN) ; 
fire Ul ALO, (5), ) ~§, YELLOW, CREEN) ; 
ier Pe hOn 58,  '  ") YELLOW, GREEN} ; 
ier 410, 61, “ ", YELLOW, GREEN) ; 
iret lesee 4 YELLOW, GREEN); 
tirarUre(ll, 24,5", YELLOW, GREEN) ; 
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TTY.PUT (11, 27, " “, YELLOW 3GeEeei es 

TTY SPUT sO ees Ore ", YELLOW) GREEN) 

TITY.PUT (11, 34, “ ", YELLOW] Sees 

TTY.PUT (11, 36,5" YELLOW SGeeenoe 

TTY.PUT (11, 41, " ", YELLOWS GRESt 

TTY.PUT (11, 50, " “, YELLOW, Geen 

TTY.PUT (12, 16, “" “7; YELLOW? GREELY 

TTY.PUT’ (i2,. 24, °" “) YELLOW, GREEN 

TTYs.PUT (12, 27, “" “, YELLOW - GREET 

TTY.PUT (12, 31, "",; YELLOW; GREEN): 

TLiyYePul (Zee ae ", YELLOW, GREEN): 

TTY.PUT (12, 41, "° “, YELLOW, GREEN): 

TTY. PUr (12, 50, “ "). YERLOW eCcReniing 

TTY-PUT (12, 55, ° “, YELEOW SCREEN es 

TTY.PUr (12, 58, “ “, YELLOW. GeaMenne 

TTY.PUT (12, Sl, ">", YELLOW, GREENS 

TTY.PUT (17, 26, “Version 1.0 dated June 1992", GREEN, BLACK)? 
TTY.PUT (19, 24, “Written by John Reynold Gensure", GREEN, BLACK); 
TTY.PUT (23, 26, " Press any key to continue ", BLUE 3G. 7. 
TTY.GET (PAUSE, CHAR); 


end FINOPEUMSG; 


procedure INPUT MSG is 
begin 
TTY.CLEAR SCREEN; 
TRY SPW. ( lao? 
: ", YELLOW,” CYAN Dy 
TEY. PUTS. 2, 19, 
oe ", YELLOW, CyYahie, 
Pied 26 Sy 19 ", YELEOW, CYA 
Ta eel Soa oe ", CElbLOW, CYAN) 
TiveeUr (947 sor. So "| YELEOW,. GyaAhie: 
Tee yee Ot 2a Oger ", YELEOW, Cyan); 
TEYyePUl < oor. oes ", YEGDLOW, CYAN) > 
Tiree 2) Of oost 7) VeELEOW, Crane: 
Tie Un A sop esko = m,  YELEOW, Craig); 
PEYoePUdy 4 Gs 5 6. ye ", YSELEOW, CYAN) 
TRY eeu elo, 19,02) ", YEEEOW, CYAN: 
Thy PU 4 Ss ", YELEOW,. CYAN) 
TTP 4 3B 7. Oe ", YELLOW PeCyraAN) ; 
TTY EOL. (Roy 25, * "|, YELLOW Gran; 
LLY PU oe oo. ", YELLOW, CYAN); 
Tier Ue aeons. O48. *, YELLOW FC y ahs 
TT YoPUT ilo. 19, 
4 ", YELLOW, “CYAnoe 
pO Gs GA) 5210 fl icege 0 ers bso 
5, ", YELLOW, ©YAaNog 
Tie bUr. ssc ec pe - 
YELEOW, RED); 
TL YacPU Teles ee 2 e Required Inputs yer 
BRIGHT WHITE, RED); 
TUN Uy ee 2a "y 
YELLOW, RED); 
TTY.PUT ( 6, 22, “ Press enter to choose delau leon maa 
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YELLOW, 
TRY: PUT 
YELLOW, RED); 
Try, PUL (6; 

YELLOW, RED); 
TrVeeOT { 7, 

YELLOW, RED); 
Rey. PUP Gor. 22; 

BRIGHT WHITE, RED); 
TivePUr (79, 22, " 

YELLOW, RED); 


RED); 
a aa 
2ou 


22. " 


end INPUT MSG; 


any other key to input new value. 


All values must be inputted as 


ElCats. 


Dornot anpue 0.6 as .6 !'!! 


procedure INPUT CONT MSG is 


begin 

TTY.CLEAR SCREEN; 
Pies bUr (tly, 19, 
Seer UTy( 2; 19, 
RIV SeUL “(35 19, 
Pir On wt..5,. 56, 
Deyo (94, 19, 
iy PUT { 4, 58, 
Mier Ul 55 Lo, 
Pier Ud sg SO, 
ee bole, 9, 
tive Ua a, (26 >» 
ieee Ua (er, 19, 
TOY. Or Gl, So, 
ire O neo, 9, 
reel oy. 58, 
ieePUl os, 19, 
GeverUr oo, 
ieee UT (07. 19), 
ieee ur (Li 19, 
oy PU (38,22, 
YELLOW, RED) ; 
Mie PUT witeea| 22, 
BRIGHT WHITE, 
Pier “(  S,. 22, 
YELLOW, RED); 
PY oPUr (6, 22, 
YELLOW, RED); 
iiweeUE { J, 22; 
YELLOW, RED); 

Bt voew (65-22, 
rELLOW, RED) ; 
Mier. | 77: 22, 
YELLOW, RED); 
Meee 50, 22, 


BRIGHT WHITE, RED); 


RED) ; 


¢ 


YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 


<a - = - = 3 = <a - - = = 
- = = = = = = = = = = = 
= = = = = = = = = = 


= 
= 
”~ ~ = ~ 


Required 


Examples: 


5-0 5or 2-05-33 


CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN); 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 


Inputs Continued ; 


YELLOW, CYAN); 


YELLOW, CYAN) ; 


YELLOW, CYAN) ; 


YELLOW, 


CYAN) ; 


f 


Press enter to choose default or ; 


any other key to input new value. ", 


All values must be inputted as , 


floats. 


Do not input 0.8 as 
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Examples: 


SOs Orr O05 _ 


6 


se 


TY ae Oe 


Co ece, 


YELLOW, RED); 


end INPUT CONT MSG; 


procedure vCuUrEUTIMSG ys 


begin 


SARS ce 
ee. 
Tie: 
siglo e = 
sigs de 
slid ka 


BUT 
EUe 
PUT 
PUT 
PUT 


CLEAR SCREEN; 


, 26, 
, 26, 
S55 
Zo; 
, 28, 


= ™= 


Nh ha 


end OUTPUT MSG; 


procedure OUTPUT CONT MSG 


begin 


enc. OuUTeU 


TTY.CLEAR SCREEN; 


hike ge 
Ti. 
gis @: 
pike gs 
ae 
pli 
Aled ko ce 
ae 


PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 


, 26, 
Zo; 


= = 


= = = 


WN B&W WDHYN BF 
= 


CONT MSG; 


So, 
26, 
Soy 
20, 
Zo, 
, 28, 


PEOccdure EXTT MsGeis 


begin 


RED) ; 


TTY.CLEAR SCREEN; 


Tiv. PUR 
TTY. PUT 
TiyeuG 
TI our 
Tiy seur 
seat? 121 01 
Tow eeu 
YELLOW, 
Ti Pum 
YELLOW, 
TTY. PUT 
YELLOW, 
TTY. PUT 
YELLOW, 
Tey Pu 


alga 
(id, 
(127 
(l2, 
(iS, 
HES eres es 
oie Loe 
CYAN) ; 

(205-18, 
CYAN) ; 

(14, 18, 
CYAN) ; 

(i5. 108; 
CYAN) ; 

(ieee 


Sy 
50, 
Ibe) 
BG, 
Ee; 


, 


f 


YELLOW, CYAN) ; 
YELLOW, CYAN); 


Inputs => Outpucs 


1s 


YELLOW, 
YELLOW, 
YELLOW, 
YELLOW, 


Inputs => “OWepucs 


CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 


Continued 


, YELLOW, 
, YELLOW, 
, YELLOW, 
, LELEOW, 
, YELLOW, 
, YELLOW, 
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CYAN) ; 
CYAN) ; 
CYAN)’; 
CYAN) ; 
CYAN); 
CYAN) ; 


A 
¢ 


f 


", YELLOW, CYANGe 


", YELLOW, CYAN) ; 
BRIGHT WHITE, RED) ; 


", YELLOW, CYAN 


“, YELLOW, CYAN Fe 


BRIGHT “WHITE, 


RED) ; 


BRIGHT WHITE, RED); 


¢ 


YELLOW, 


dey PU = 2 12 dk et Thank you for using 
RED) ; 
Miverer .(h3, 2a, 
RED) ; 
end EXIT MSG; 


enoetINOPT PICTURES; 
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FENOPT 


° 


? 


’ 


YELLOW, 


YELLOW, 


-- Title 


-- Author 
Date 


A COMPUTER OPTIMIZATION 
John Reynold Gensure 
June L992 


package PINOPT SINGER 1s 


EATENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS: 


procedure Cy@INDRICAL NO OP TR(UNits in INTEGER; 
CONVERT DIST in FLOAT 
DIAMETER in out FLOAE 
DIAMETER UNITS in STRING; 
HEIGHT in out FLOAT; 
HEIGHT UNITS in STRING; 
H ; in out FLOAa 
H UNITS in STRING; ~ 
K : in out FEORE 
K_UNITS in STRING; 
T AMBIENT in out FLOAT 
T WALL in out FLOAT 
T UNITS in STRING; 
Q : in out FLOAT 
QuuUNITs in STRING) ; 
procedure CYLINDRICAL GIVEN VOL(UNITS 1130) 
INTEGER; 
CONVERT DIST in FLOAG 
VOLUME in cue 
FLOAT ; 
VOLUME UNITS in STRING; 
DIAMETER in Out 
FLOAT ; 
DIAMETER_UNITS >: in STRING; 
HEIGHT : in oug 
FLOAT; 
HEIGHT UNITS : in STRING? 
H ; in ewe 
FLOAT ; 
H UNITS in STRING. 
K : Ln our 
FLOAT; ; 
K_ UNITS in STRING; 
T AMPEENT in Cue 
FLOAT ; 
T WALL in Ou 
FLOAT ; 
T UNITS : in STRING. 
Q- : in out 
FLOAT ; 
Q UNITS ; in 
STRING) ; 
procedure CYLINDRICAL GIVEN Q(UNITS in INTEGER. 
7 ~ CONVERT_DIST in FLOAT; 
DIAMETER in Our 
FLOAT; 
DIAMETER UNITS in STRING; 


ou 


HEIGHT 


FLOAT; 
HEIGHT UNITS 
H 
FLOAT; 
H UNITS 
K 
FLOAT; 
K UNITS 
T AMBIENT 
FLOAT; 
T WALL 
FLOAT; 
T UNITS 
Q 
FLOAT ; 
Q UNITS 


procedure RECTANGULAR NO OPT (UNITS 
CONVERT DIST 
LENGTH 
LENGTH UNITS 
HEIGHT 
HEIGHT UNITS 
WIDTH 
WIDTH UNITS 
H 
H_ UNITS 
K 
K UNITS 
T AMBIENT 
T_WALL 
T UNITS 
Q 
Q UNITS 


procedure RECTANGULAR GIVEN VOL(UNITS 
INTEGER; 
CONVERT DIST 


VOLUME 
FLOAT ; 
VOLUME _UNITS 
LENGTH 
FLOAT; 
LENGTH UNITS 
HEIGHT 
FLOAT ; 
HEIGHT UNITS 
WIDTH 
FLOAT ; 
WIDTH UNITS 
H 
FLOAT; 
H UNITS 


ee 


Ha) 


Tai 
ne 9! 


in 
in 


in 
Ta) 


iF) 


in 
Im 


bit g| 


ne) 91 
Hi 6) 
Tg 
a 
in 
aagl 
etal 
in 
TG! 
al oh 
in 
alg! 
vip | 
in 
on 
a) 9) 
ty 9 


Out 


STRING; 
OUue 


STRING; 
out 


STRING; 
out 


out 


STRING; 
Cut 


STRING) ; 


INTEGER; 
FLOAT ; 

Ouc “FLOAT > 
STRING; 
out ELOAT; 
STRING; 
out FLOAT; 
STRING; 
Sout ELOAT; 
STRING; 
out FLOAT; 
STRING; 
out FLOAT; 
out FLOAT; 
STRING; 
Out ELOAT ; 
STRING) ; 


in 


in FLOAT; 
Shah tenbhe 


in STRING; 
in Ouc 


in STRING; 
Gul are) ORE 


in STRING; 
neal (enbke 


in STRING; 
ih Out 


in STRING; 


FLOAT; 


FLOAT ; 


FLOAT; 


FLOAT ; 


STRING) 


K 


KeUNETS 


T AMBIENT 


T WALL 


T UNITS 
Q 


Oh Uidinegets 


procedure RECTANGULAR GIVEN Q(UNITS 


FLOAT; 


FLOAT; 


FLOAT ; 


FLOAT ; 


FLOAT ; 


FLOAT; 


FLOAT ; 


FLOAT ; 


eng=: (NOP? SINGLE; 


CONVERT DIST 


LENGTH 


LENGTH UNITS 


FUG a 


HEIGHT UNITS 


WIDTH 


WIDTH UNITS 


H 


H_ UNITS 


K 


K UNITS 


T AMBIENT 


T WALL 


T_UNITS 


Q 


Q UNITS 


3 


i 
in 
in 


mes 6 
mle ot 


in 
sLial 


in 
in 


ne ¢ 
aL al 


aL 9) 
in 


ak igl 


in 
in 


au 6) 


aN 


in 
ala gl 


aly gl 


aly a 
a 


ake 


Ou 


STRING; 
out 


OouEg 


STRING; 
Oouc 


INTEGER; 
FLOAT ; 
Olle 


STRING; 
Our 


STRING; 
out 


STRING; 
Our 


STRING? 
Oue 


STRING; 
Our 


out 


STRING; 
OouTc 


STRING) ; 


ao Tithe ee oem oURPACE HEAT SINKS FOR BLECTRONIC COMPONENTS: 


—_—_——_— 


A COMPUTER OPTIMIZATION 


== eho eter : John Reynold Gensure 


--— Date : June 1992 
Wath ten 107 COMMON DISPLAY (TYPES, TrY- CURSOR, FINOPT COMMON, 


use 


GENERIC ELEMENTARY FUNCTIONS, FINOPT PICTURES; 


TEXT IO, COMMON DISPLAY TYPES, FINOPT COMMON; 


package body FINOPT SINGLE is 


mackage FLOAT TINOUT is mew FLOAT IO(FLOAT) ; 
package MY_ELEMENTARY FUNCTIONS is 


new GENERIC ELEMENTARY FUNCTIONS (FLOAT) ; 


use FLOAT INOUT, MY ELEMENTARY FUNCTIONS; 


procedure CYLINDRICAL NO OPT(UNITS in NT EGER? 
CONVERT DIST in EPLOAT; 
DIAMETER Sein Outs ELOAL: 
DIAMETER_UNITS ino LRENG: 
HEIGHT Seine out er LOAT ¢ 
HEtGH TE SUNLTS [ones PRING; 
H {ine out FLOAT; 
H_ UNITS Seine oLRUNG; 
K eta Out. FLOAT: 
K_ UNITS [een od RING: 
ToAMealeNy Jorn out ELOAT >; 
T_WALL weir out © LOAT; 
T_UNITS : in STRING; 
Q lm OuE ELOAT; 
Q UNITS > an STRING) 2s 

NUMBER OUT : 


STRING(1..10); 


CHAR >; CHARACTER; 
PAUSE ; INTEGER; 
PERce Len, anon, ae CL CIENCY, 

DE bIALT,; 0 TTP 5. PuOAT; 


PI : constant := 


3.14159 26535 89793 23846 26433 83279 50288 41972 ; 


begin 


FINOPT PICTURES. INPUT MSG; 

Sia ieUT Previn es Diameter ok the cylindrical spine”, 33, 
DIAMETER UNITS, 2p ola pe 

Sa eVPUR(HEIGHi, Hetght of tne cylindrical spine”, 31, 
HEIGHT UNITS, fa oer Aes) ia; 
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if (UNITS = 2) then 
GET INPUT(H, “Convection heat transfer cCociiivetenu sere 
H UNLIS Woy. fore, 
GET INPUT(K, “Thermal conductivilty of matemialeek eee 
K UNETS 7dr 
else 
GET INPUT(H, “Convection heat transfer coetivesene ss a 
H_ UNITS, 3 eli 
GET INPUT(K, “Thermal conductivity ©f materral i gee 
KOUNDIS ie i): 
end if; 
GET INPUT (T AMBIENT, @Ambient Temperature sao 
PUNE See alone 
GET INPUT(T WALL, “Wall Temperature Jule, 
TOUNEDS,. 2;. 19) 
TTY.PUT (23, 27, “ Press any key to Continue “, BLUE, wer oe 
DIiyY.GhL PAUSE,» CHAR); 


-- Calculations (Assume Tip is Insulated) — 


i i i eA ee ee | 


PERIMETER := PI*DIAMETER/CONVERT DIST; 
AREA := (PI*( (DIAMETER/CONVERT_ DIST) **2))/4.0; 
M := SQRT((H*PERIMETER) / (K*AREA) ) ; 
DELTA_T := T_WALL-T AMBIENT; 
Q := K*AREA*M*DELTA T*TANH (M*HEIGHT/CONVERT DIST) ; 
EFFICIENCY := (TANH (M*HEIGHT/CONVERT_ DIST) ) 
/ (M*HEIGHT/CONVERT DIST) ; 
T TIP := T_AMBIENT+ (DELTA_T/COSH(M*HEIGHT/CONVERT DIST) ); 
z= Outputs == 


omc cc crc mc cr cr cr ww cr ce cr cr ce cr cr cr cr cr wr cr cr ew ce cr ce we cw ec we we ew we we we we we we we we we www we we we we we cee we ee wee wee ee eg 


FINOPT PICTURES.OUTPUT MSG; 

PEeY.eUr ( 5, S67. aputs «7 BRIGHT Wie, GREEN) ; 

TTY.PUT ( 7, 1, “Diameter of the cylindrical spine = Me 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, DIAMETER, 4.8); 

TrYSeUr ( 7, 482 NUMBER OUT, YELLOW, BLACK) ; 

TEYeeur Wo je 39; DIAMETER UNITS, YELLOW, BLACK) ; 

TTY.PUT ( 8, 1, “Height of the cylindrical spine = 
YELLOW, BLACK) ; 

PUT “(NUMBER OUT, HELGHTE, 4.2 se; 

ETY JPUL (76. 46; NUMBER OUT, YELLOW, BLACK) 

TTY.PUT ( 8, 59, HEIGHT UNITS, YELLOW, BLACK); 

TTY.PUT ( 9, 1, “Convection heat transfer Goetrverene a 2 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, H, 4x3) 

TE YVSeUE a. *9 46 NUMBER OUT, YELLOW, BLACK) ; 

TERY .PUE*< “S50 59; H UNITS, YELLOW, BLACK); 

TTY.PUT (10, 1, “Thermal conductivity of materia. = 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, K, 43 )S 

TRY wPUT (10; 46. NUMBER OUT, YELLOW, BLACK) ; 
TTY seUT {1058 59. Kau vs, YELLOW, BLACK)? 
TTY.PUT (11, 1, “Ambient Temperature = 4 


se 


YELLOW, BLACK) ; 


PUT (NUMBER_OUT, 
Tuiveee Utd 4G? 
Tie PUT (11, 99, 
MMGePUT (12, 1, 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
Tn ew eae 4, 
Rie Um (1250 159;, 
my PUT (14, 35, 
ienvePUE (16, 1, 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 


TTY.PUT (16, 48, 
TTY.PUT (16, 59, 
TTY.PUT (17, 1, 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 


TTY.PUT (17, 48, 


moeresur (18, 1, 
YELLOW, BLACK) ; 


T AMBIENT, 4, 3); 

NUMBER OUT, YELLOW, BLACK) ; 
T UNITS, YELLOW, BLACK) ; 
"Wall Temperature 


ie Wiuiee HS 

NUMBER OUT, YELLOW, BLACK) ; 

T UNITS, YELLOW, BLACK) ; 

" Outputs ", BRIGHT WHITE, GREEN) ; 
“Heat transferred away by the fin, gq 


Q, 4, 3); 

NUMBER OUT, YELLOW, BLACK) ; 
Q UNITS, YELLOW, BLACK) ; 
"The fin efficiency 


BEEReCEENCY, 4, 3); 
NUMBER OUT, YELLOW, BLACK) ; 
"The temperature at the tip 


PUT (NUMBER OUT, T TIP, 4, 3); 

iY Pui bop 40, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT (18, 359, T_ UNITS, YELLOW, BLACK) ; 

Pues eUl ei 2oyn 21,5. Press any key to continue “, BLUE, 
TTY.GET (PAUSE, CHAR) ; 


end CYLINDRICAL NO OPT; 


procedure CYLINDRICAL GIVEN VOL(UNITS 


INTEGER; 


FLOAT ; 


FLOAT; 


FLOAT ; 


FLOAT ; 


FLOAT ; 


FLOAT ; 


FLOAT ; 


FLOAT ; 


1s 


CONVERT DIST 
VOLUME 


VOLUME UNITS 
DIAMETER 


DIAMETER UNITS 
HEIGHT 


HEIGHT UNITS 
H 


H_UNITS 
K 


K_UNITS 
T AMBIENT 


T WALL 


T UNITS 
Q 


Q UNITS 


6 


CYAN) ; 


uly gt 


er 
in 


alg! 
alee 


in 
in 


al @! 
an 


Ae 
alg 


in 
an 


in 


iy 4) 
in 


in 


FLOAT; 
Cuc 


STRING; 
out 


STRING; 
out 


STRING; 
out 


STRING; 
Cut 


STRING; 
Out 


out 


STRING; 
out 


STRING) 


NUMBER OUT 
STRING (LS. 207 


CHAR : >; CHARACTER: 
PAUSE >: INTEGERS 


PERIMETER, AREA, M, EFFICIENCY, 
DELTA T, iaame : FLOAT; 


PI : COnStEantG +— 
3.14159 26535 89793 23846 26433 83279 50288 41972 ; 


begin 


PINOPT PICTURES. INEPOUL MSG, 
GET INPUT(VOLUME, "Volume of the cylindrical spine fa 
VOLUME UNITS, 4, 14); ; 
if (UNITS = 2) then 
GET INPUT(H, “Convection heat transfer coefficient ee 
HeUNGES, 197ml oin 
GET INPUT(K, “Thermal conductivity of material, Jk jase, 
K UNDES 17 oie 
else 
GET INPUT(H, “Convection heat transfer coefficient en ae 
H UNITS, 13, 15); 
GET INPUT(K, “Thermal conductivity of mater?taly ee 
KOUNETS, 11, ei 
end if; 
GET INPUT (T AMBIENT, Ambient Temperature a. 
TOMES, Seeley) 
GET _INPUT(T WALL, “Wali Temperature jaale, 
TRUMP See S610 )e; 
TTY.PUT (23, 27, " Press any key to continue ", BLUE, WCrvetie 
TTY.GEIT {PAUSE, “CHAR; 


— ee ee ee ee es es es ee es ee es ee ce ee ee ee ee ee ee es ee ee es ee es ee ee es es ee es ee ee ee es ee ee se ee ee ame cee cme cme comm cme ce ee ee ee ee es ee i ie om oe a 


ee Calculations (Assume Tip is Insulated) -- 
DIAMETER := CONVERT DIST*1.5031* (H/K* (VOLUME 
JCONVERT DIST**3) 732) (oes 
HEIGHT := CONVERT DIST*0.5636* ( (VOLUME 
/CONVERT DIST** 3) (K/ Hi 2) a02 a, 
PERIMETER := PI*DIAMETER/CONVERT DIST; 
AREA := (PI*((DIAMETER/CONVERT DIST) **2))/4.0; 
M := SQRT((H*PERIMETER) / (K*AREA) ) ; 
DELTA T := T WALL-T AMBIENT; 
Q := K*AREA*M*DELTA T*TANH (M*HEIGHT/CONVERT_DIST) ; 
EFFICIENCY := (TANH(M*HEIGHT/CONVERT DIST) ) 
/ (M*HEIGHT/CONVERT DIST) ; 
T TIP := T AMBIENT+(DELTA_T/COSH (M*HEIGHT/CONVERT_DIST) ); 
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mmc cr cm cr cr cr cr cr cc cr ce ce we ee ee ee ee ee cme mc cr cc cc ce ee ee ec ic ce ee ce eee ee ee ee ee 


ee cece mc cr cr cr cre ce ce ec cr cr cr cc cr ce ee ee ee ee ee ee i ee ee ee ee ee ee eee ee ee ee ee ee 


BN Ei, PICTURES .OUTPUT MSG; 

Mivecute(mo, sc, Enputs “BRIGHT WHITE, GREEN); 

MirerUr (7, lb) Volume of the cylindrical spine =", 
YELLOW, BLACK) ; 

Pur (NUMBER OUT, VOLUME, 4, 3)3 

Poe rur (7, 48, NUMBER OUT, YELLOW, BLACK) ; 

ieee ur ( 7, 39, VOLUME UNITS, YELLOW, BLACK) ; 

TTY.PUT ( 8, 1, "Convection heat transfer coefficient, h : 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, He 4. 3); 

iene rUn (8, 46, NUMBER OUT, YELLOW, BLACK) ; 

MererUT { 6, 59. H_ UNITS, YELLOW, BLACK) ; 

MueweurT Snot y “Thermal GConductivity of material, k =") 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, Ke 4 eo) 

ieaseor ( 9... 486, NUMBER OUT, YELLOW, BLACK) ; 

fiverPurT ( 95. 59, K UNITS, YELLOW, BUACK ) 3 

TTY.PUT (10, 1, “Ambient Temperature ae 
YELLOW, BLACK) ; 

pu (NUMBER OUL, ET “AMBIENT, 47 3); 

neers UL oe 48, NUMBER_OUT, YELLOW, BLACK) ; 

iiceeur tO. 59, T UNITS, YELLOW, BLACK) ; 

Rive PUT (lil, 1, “Wall Temperature ae 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, T WALL, re eh le 

rire Ur (ll? 46; NUMBER OUT, YELLOW, BLACK) ; 

ie. POUT (ll, 59, T_UNITS, YELLOW, BLACK) ; 

ED Gabe lLs. 5, - OUEDUCS. )’, BRIGHT WHITE, GREEN) ; 

fWiweod (ls, 1, “Optimum diameter of the cylindrical spine ; 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, DIAMETER, 4, 3); 

turer Ur (15, 48, NUMBER OUT, YELLOW, BLACK) ; 

ieee (bo .e D9, DIAMETER UNITS, YELLOW, BLACK) ; 

Veo CUM ClO i, “Optamum heirght of the cylindrical spine = 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, HETGHT, 44. 3) 

TTY.PUT (16, 48, NUMBER OUT, YELLOW, BLACK) ; 

Mey ePUre (16, 59, HEIGHT UNITS, YELLOW, BLACK) ; 

TTY.PUT (17, 1, “Heat transferred away by the fin, gq =o 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, Q, 4, 3); 

~TrY.PUT (17, 48, NUMBER OUT, YELLOW, BLACK) ; 

oreo (ld?) 39, Q UNITS, YELLOW, BLACK) ; 

fives le, 1, “The fan efficiency = 
YELLOW, BLACK) ; 

Ew (NUMBER OUT, BRE LCIENGY,. 4-3); 

ieee T wae, (46, NUMBER OUT, YELLOW, BLACK); 

tivewreUn (lo, iyo “The temperature at the tip = 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, T TIP, 4, 3); 

iMewaseUT (19, 46, NUMBER OUT, YELLOW, BLACK) ; 

ieee (Lo... 59, T_ UNITS, YELLOW, BLACK) ; 

Try.,PUT (23, 27, “ Press any key to continue ", BLUE, CYAN); 
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TTY jGET Ss UEAU SHyaeHAt =, 


end CYLINDRICAL GIVEN VOL; 


procedure CYLINDRICAL GIVEN Q(UNITS >: in INTEGER? 
CONVERT DIST : in FLOAT 
DIAMETER “An ome 
FLOAT ; 
DIAMETER UNITS : in STRING: 
HELGHT : Inoue 
FLOAT; 
HEIGHT UNITS ; in STRING. 
H >; In vou 
FLOAT; 
H UNITS : in STRING 
K : inoue 
FLOAT ; 
K UNITS : in STRING; 
T AMBIENT > inoue 
FLOAT ; 
T WALL > In out 
FLOAT ; 
TAUNITS : in STRING, 
e) : in out 
FLOAT; 
Q UNITS : in STRING) 
is 
NUMBER OUT 


STRING(1..10); 


CHAR >: CHARACTER; 


PAUSE INTEGER; 


e¢ 


PERIMETER, “AREA OM, EPP ICIEncy, 
DELTA T, I TIP ; FLOAT; 


PI © <onstant <= 


3.14159 26535 89793 23846 26433 83279 50288 41972 ; 


begin 


cette cc ec cr ccc c  c c e e  e e e e e e e ee e e 


FINOPT PICTURES -INEUTUMSG, 
Ei “UNITS =-Z2) then 
GET INPUT(Q, "Heat transferred away by (thes ingeo aoe 
O UNITS). 6, =a 
GET INPUT (H, "Convection heat transfer coefficient, h", 39, 
H UNITS, 19, 15); 
GET INPUT (K, "Thermal conductivity of material ee eo, 
KOUNITS, 17, lens 
else 
GET INPUT(Q, “Heat transferred away by Chewing 


a8) 


OMUNT RSs. b> aay 
GET INPUT (H, "COMVEGCELON Neat Eransfer coefficient, h”, 39, 
REONDTS,. 137 Love 
Chien EUl (ie aera lecOnductivityeot material, k", 35, 
keUNIGS, 11,) 16) ; ; 
end if; 
ChigIvCUL TeAiBIENt eeenmolent Temperature , 19, 
PaUNLET Si 57. 14) 
GET INPUT(T WALL, "Wall Temperature", 16, 
T NETS: 57 18:)+ 
TTY. PUT (Zope Clee eeGeSS any key to continue ~, BLUE, CYAN) ; 
TTY.GET (PAUSE, CHAR); 


emcee ce ce cm cmc cr cw cr cr cc cr we ce wr cc ww cw we ws ee ww we ww ww ws ee = 


== Calculations (Assume Tip is Insulated) SS 
DIAMETER :— CONVERT SEDIST*029165*%( (0% *2Z) 
Vn Kea tT) WALL-T AME EENT}**2) )')** (1,073.0); 
HEIGHT := CONVERT DIST*0.4400* ( (Q*K) 
Pies 2.) = (T WALL-T AMBIENT) ))** (1.0/3.0); 
PERIMETER := PI*DIAMETER/CONVERT DIST; 
AREA 3= (PI* ( (DIAMETER/CONVERT DIST) **2))/4.0; 
M := SQRT((H*PERIMETER) / (K*AREA) ) ; 
DELTA T := T WALL-T AMBIENT; 
QO := K*AREA*M* DELTA_T*TANH (M*HEIGHT/CONVERT DIST) ; 
EFFICIENCY := (TANH (M*HEIGHT/CONVERT DIST) ) 
/ (M*HEIGHT/CONVERT DIST) ; 
Beli’ s= T AMBIENT+ (DELTA_T/COSH (M*HEIGHT/CONVERT DIST) ); 


FINOPT PICTURES .OUTPUT MSG; 

ieee Ute  o,. S60, Inputs ", BRIGHT WHITE, GREEN) ; 

TTY.PUT ( 7, 1, “Heat transferred away by the fin, q =", 
YELLOW, BLACK); 

PUT (NUMBER OUT, O74 js) - 

DiverUrT (<7, 48, NUMBER OUT, YELLOW, BLACK) ; 

iy seUD wet, 59, Q UNITS, YELLOW, BLACK); 

iivelUlw| co, lo Convection heat transfer coefficient, h , 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, He 4, 3)3 

TiwebUr (38, 48, NUMBER OUT, YELLOW, BLACK) ; 

Eer- PUL { 8, 59, H UNITS, YELLOW, BLACK); 
iieebeo, 2, “Ehermal conductivity of material, k =a, 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, Ke 4 a) 

Tiyverour ( 9 46, NUMBER OUT, YELLOW, BLACK) ; 

TiEeeror (9, 59, K UNITS, YELLOW, BLACK) ; 

TTY.PUT (10, 1, “Ambient Temperature ane 
YELLOW, BLACK); 

PUT (NUMBER OUT, T AMBIENT, a4 Oy 

toy. PUT (10, 48, NUMBER OUT, YELLOW, BLACK) ; 

Liye uUr (10>. 59, T UNITS, YELLOW, BLACK) ; 

TTY.PUT (11, 1, “Wall Temperature =", 
YELLOW, BLACK) ; 
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PUL 


Al hea 
iy 
Tia 
Juke as 


(NUMBER OUL,) 1 WALL, (47 2 


PUL 
PUL 
EOL 
PUT 


YELLOW, 
PUT (NUMBER OUT, DIAMETER, 4, 9377, 
TTY.PUT {15, 48, NUMBER OUT? YELLOW, (era: 


3 Gad hos a 
Tie 


PUT 
PUT 


(11, 48, NUMBER OUT, YELLOW, BLACK) ; 

(loge T UNITS, YELLOW, BLACK): 

(135 350) OCutputce.s BRIGHT WHITE, GREEN) ; 

(15, 1, “Optimum diameter of the cylindrical spine = 
BLACK) ; 


(bs Pa esc le DIAMETER UNITS, YELLOW, BLACK) ; 
(16, 1, “Optimum height of the cylindrilecalesea = 


YELLOW, BLACK) ; 
(NUMBER OUT, HEIGHT, 4, 3); 
TTY.PUT (16, 48, NUMBER OUT, YELLOW) SE ieAen 


PU 


Gl g 
pln a 


PUT 
PUT 


(16, 59, HEIGHT UNITS, YELLOW, BLACK) ; 
(17, i, “Uhe finger rrertone, = 98 


YELLOW, BLACK) ; 
(NUMBER OUT, EFFICIENCY, 4, 3); 
TTY.PUT (17, 48, NUMBER OUT, YELLOW, Sena Ge, 


Por 


fihl Ge ee 


Eur 


(18, 1, "The temperature at the tip =") 


YELLOW, BLACK); 
(NUMBER OUT, TT ER ye 4a se 


PUT 


Tie. 
daly oe 
ip is 
se os ae 


PUT 
PUT 
PET 
GET 


(18, 48, NUMBER OUT, YELLOW, BLACK) ; 

(18, 59, T UNITS, YELLOW, BLACK); 

(23, 2/7, “ Press any key to continue ”, BLUE, Gye; 
(PAUSE, CHAR); 


end CYLINDRICAL GIVEN Q; 


procedure RECTANGULAR NO OPT(UNITS ; in INTEGER 

CONVERT DIST > in FLOAT 
LENGTH : in out FLOAT 
LENGTH UNITS : in STRING: 
HEIGHT : in out FLOAR 
HEIGHT UNITS : in STRING; 
WIDTH : in out FLOAT 
WIDTH UNITS > in STRING; 
H : in out FLOAR 
HeUNTTS : in STRING; 
K >; in out FLOAT 
K UNITS : in STRING; 
T AMBIENT : in out FLOAT 
T WALL : in out FLOAT; 
T UNITS : in STRING; 
Om ; in out FLOAw 
Q_ UNITS > in STRING) Sas 

NUMBER OUT 

STRING (1 eu): 

CHAR CHARACTER; 

PAUSE INTEGER; 

PERIMETER, AREA, M, EFFICIENCY, 

DELEA Tye Get. : FLOAT; 
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mcr mcr ce cc cc ww te ee ww ww te tw ee ie a i i 


cee cm ce wee cc cm cr cs ws we we we ew ws we we we we we ww ww ew we ew = 


FINOPT PICTURES 2NEUT MOG, 

GET INPUT(LENGTH, "Length of the rectangular fin", 29, 

LENGTH UNITS, 2, 14); 

Chieu ie iGhl a Height of the rectangular fin", 29, 

HeGh aaUN ETS) 2 08h ep 

GET INPUT(WIDTH, “Width of the rectangular fin", 28, 

WIDTH UNITS, 2. Lore 

if (UNITS = 2) then 
GET INPUT(H, "Convection heat transfer coefficient, h", 39, 
H UNITS, 19, 17); 
GET INPUT (K, "“TherMmad. CONGUGCEIVLtyY OF material, k", 35, 
KUNIS, as 418)", 

else 
CHimiieU iH, Convect top sneatmerancter coetfreient, hn’, 39, 
He UNG SiG: 
GET LINEUL (K, Thermal conauctivity Of material, k”, 35, 
Kaun Ens, p11, 16); 

end if; 

SELENE UT(TSAMBIENT.? Ambient TenpeGatunte jlo, 

POUNEIS, 2, 19); 

GET INPUT(T_WALL, “Wall Temperature”, 16, 

PoUNL TS, soy. 2 ON: 

TTY. PUT (237m) «6 EC eSS any Key FO continue “", BLUE, CYAN); 

TTYsGho 5( PAUSE, CHAR); 


me crc ce cc cr a ct ee te ee ct ct ect ct ec cc cc cr ec cc te ce ee ee ee ee ee ee ee ee ee ee 


-= Calculations (Assume Tip is Insulated) and Length >> Width = 


PERIMETER := 2.0*LENGTH/CONVERT DIST; 
AREA := (WIDTH/CONVERT_ DIST) * (LENGTH/CONVERT DIST) ; 
M := SORT ((H*PERIMETER) / (K*AREA) ) ; 
DELTA! += 1 WALES? AMBIENT; 
QO: K* AREA*M* DELTA_T*TANH (M*HEIGHT/CONVERT DIST) ; 
BPP LCLeENCY <= (TANH (M*HEIGHT/CONVERT_ DIST) ) 
/ (M*HEILGHT/CONVERT DIST) ; 
ee. T_AMBIENT+ (DELTA_T/COSH (M*HEIGHT/CONVERT DIST) ); 
i Outputs =e 


ee EE Es 


FINOPT PICTURES.OUTPUT MSG; 

Piet 5.00, Inputs “, BRIGHT WHITE, GREEN) ; 

tere Nag, LL, Length of the rectangular fin =". 
YELLOW, BLACK); 

PUT (NUMBER OUT, LENGTH, 4, 3); 

TTY.PUT ( 7, 48, NUMBER OUT, YELLOW, BLACK); 

TTY.PUT ( 7, 59, LENGTH UNITS, YELLOW, BLACK) ; 

—ey.PUP (8, 1, “Height of the rectangular fin a 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, HEIGHT, 4, 3); 
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TTY.EPUT “(ae ee: 
TTY. PUT “(eu ooF 
TTY PUT ae cee 


YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
TTY PUT (mores G., 
TTY PUT (ooo, 
TTY. PUR 410 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
TY PU ls Orme or 
TTY PUT lo oS, 
Tre BUT allen 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
THY PUD (isbn 48; 
Te eo eee Sor 
Tie CUE eel, 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
TTY Puree Gl oee 4c. 
TESOL lay oor 
Pie Pon 4 ie ee 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
TIP One lor 4c), 
TOY PUT, 59? 
TINCUT (lS aso) 
Dr YeuPU (17mg, 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
Tier wl ee, 8 
sign, ef aly els) 
TE. BUT UG el, 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
TiVOr Ute hore), 
high, ences: 
YELLOW, BLACK) ; 
PUT (NUMBER OUT, 
TY BUM Lo aeA\s - 
TE Pure (19,259, 
TRMPUE aac a2; 
TTY.GET (PAUSE, 


NUMBER OUT, YELLOW, BLACK) ; 
HEIGHT UNITS, YELLOW BACK), 
“Width of the rectangular fin 


WIDTH, 4, 3)3 
NUMBER OUT, YELLOW, BLACK) ; 
WIDTH UNITS, YELLOW, BLACK) ; 


"Convection heat transfer coefficient, 


HH, aoeeeo) se 

NUMBER OUT, YELLOW, BEACK) >; 

H UNITS, YELLOW, BLACK) ; 

"Thermal conductivity of material, k 


K,. Ages 

NUMBER OUT, YELLOW, BLACK) ; 
K UNITS, YELLOW, BLACK); 
"Ambient Temperature 


TEAME CONE aeons 
NUMBER_OUT, YELLOW, BLACK) ; 
T UNITS, YELLOW, BLACK) ; 
“Wall Temperature 


T WALL, 4, 3); 

NUMBER OUT, YELLOW, BLACK) ; 

T UNITS, YELLOW, BLACK) ; 

"Outputs ", BRIGHT WHITE, GREEN) ; 
"Heat transferred away by the fin, q 


Q, 4, 3); 

NUMBER OUT, YELLOW, BLACK) ; 
Q UNITS, YELLOW, BLACK); 
"The fin efficiency 


BEEECTENGY) 4 aoe, 
NUMBER OUT, YELLOW, BLACK); 
"The temperature at the tip 


TPP, 4 esr 
NUMBER OUT, YELLOW, BLACK) ; 
T UNITS, YELLOW, BLACK) ; 


i 


" Press any key to continue ", BLUE, CYAN); 


CHAR) ; 


end RECTANGULAR_NO OPT; 


procedure RECTANGULAR GIVEN VOL(UNITS 
INTEGER; 


FLOAT; 


FLOAT; 


CONVERT DIST 
VOLUME 


VOLUME_UNITS 
LENGTH 


LENGTH UNITS 
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in 


in 
pie! 


ar 
Di a 


phy @ 


FLOAT; 
fej ble 


STRING; 
out 


STRING; 


FLOAT ; 


FLOAT; 


FLOAT; 


FLOAT; 


FLOAT ; 


FLOAT; 


FLOAT; 


aS 


HEIGHT 


Be lGh TaN. 
WIDTH 


WIDTH UNITS 
H 


H_ UNITS 
K 


K UNITS 
T AMBIENT 


T WALL 


T UNITS 
Q 


Q UNITS 


NUMBER OUT 


STRING(1..10); 


CHAR 
PAUSE 


PERIMETER, AREA, M, EFFICIENCY, 
DELTA T, T TIP, AREA PROFILE 


begin 


er) 


In 
fei) 


in 
Sky g\ 


in 
Sle) 


Sb ol 
SLia\ 


In 


138! 
in 


ner 


out 


STRING; 
OUe 


STRING; 
out 


STRING; 
out 


STRING; 
out 


out 


STRING; 
Suc 


STRING) 


CHARACTER; 


INTEGER; 


FLOAT; 


ccc ce ee ee ee ee ee es es es es es es es es es es es es es es es es es es es es es es es es es es es es es es es es es es ss es es es es es es es es es wee ee ee ee ee ee ee eo 


FINOPT PICTURES.INPUT MSG; 


GET INPUT (VOLUME, "Volume of the rectangular fin", 29, 
VOLUME UNITS, 4, 14); 
Coie Ui BENG tengthwor tne tectangular £Lin , 29, 
LENGTH UNITS, 2, 15); 
if (UNITS = 2) then 
CERIN EUR( Hh, = Convection heat transfer coefficient, 
al Oboes, AUei5 ale) 
GET INPUT(K, “Thermal conductivity of material, k", 


<n ges, a) 
else 
GET INPUT (H, 
al Gates! Let 
GET INPUT (K, 
K UNITS, 11, 
elGeit 7 
GET INPUT (T AMBIENT, 
MeUNniS eo, 16) 
Set NeUi Uh Waite Wall Temperature”; 16, 


"Convection heat transfer coefficient, 
16); 
"Thermal conductivity of material, 
17 


hee 


"Ambient Temperature", 19, 
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TeUNDTS a oreet one 
TTY.PUT (23, 27, “™ Press any key to Continue "7 BLUE eer 1.2 
TTY.GET (PAUSE, CHAR, 


SS ee ee ee ee Ss ed ss ed es ee eee 


Sata Calculations (Assume Tip is Insulated) and Length >> Width -- 


emcee ee ere ree ec ce we ww wc cw ww we ew we ww ww we ee ee ee es es es ees ee ee ee ee eee ee 


AREA PROFILE := (VOLUME/ (CONVERT _DIST**3) ) 

/ (LENGTH/CONVERT DIST) ; 

WEDTH <= CONVERT Dist Ogo77 

* (CAREA | PROFEUE** 2) 7H hee el 7 oe) a 

HEIGHT := CONVERT DIST*1.0023 

* (AREA PROFILE*K/H)* =(i20/ 320), 

PERIMETER := 2.0*LENGTH/CONVERT_ DIST; 

AREA := (WIDTH/CONVERT DIST) * (LENGTH/CONVERT DIST) ; 

M := SORT ( (H* PERIMETER) / (K*AREA) ) ; 

DELTA _T := T WALL-T_AMBIENT; 

Q := K*AREA*M*DELTA T*TANH (M*HEIGHT/CONVERT_DIST) ; 

EFFICIENCY := (TANH(M*HEIGHT/CONVERT DIST) ) 

/ (M*HEIGHT/CONVERT DIST) ; 

T TIP := T AMBIENT+(DELTA_T/COSH (M*HEIGHT/CONVERT DIST) ); 
ar OutEpueESs 7 


em ccc cc cm ce ee ce ce ec ce ee ee we ee ee ee ee ee eee re ee ee ee re re ee ee ee ee ee ee ee wee we 


FINOPT PICTURES. OULEUReMSG,; 

TTY.PUT ( 5, 36, ~ Inputs “, BRIGHT Whee Ee, Geen se 

TTY.PUT ( 7, 1, “Volume of the rectangulvaren =", 
YELLOW, “BLAGK)-; 

PUT (NUMBER OUT, VOLUME, 4, 3); 

TTY.PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK) ; 

TTY.PUT ( 7, 539, VOLUME UNITS, YELLOW, BLACK); 

TTY.PUT ( 8, 1, “Length of the rectangular fin = 
YELLOW, BLACK) ; 

20 ek (NUMBER OUT, LENGTH, 4, 3); 

Pry gPeUT Ss Osea; NUMBER OUT, YELLOW, BLACK) ; 

TITY PUT AC oS aac oor LENGTH UNITS, YELLOW, BLACK) > 

TTY.PUT ( 9, 1, "Convection heat transfer coefficient, h ‘ 
YELLOW, BLACK) ; 

PUT (NUMBER OUT (75 470°3)5 

TTY.PUT ( 9, 48, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT ( 9, 59, H UNITS, YELLOW, OeiLAGk:. 

TTY.PUT (10, 1, “Thermal conductivity of marenia aa. = 
YELLOW, BLACK); 

PUT (NUMBER OUT, K, 4, 3); 

TTY.PUT (10, 48, NUMBER _OUT, YELLOW, BLACK); 

Ta eel 1605 or K UNITS, YELLOW, BLACK) ; 

TTY.PUT (11, 1, “Ambient Temperature = oS 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, T AMBIENT, 4, 3); 

TTY.PUT (11, 48, NUMBER OUT, YELLOW, SrACiy 

TTY.PUT (11, 59, T UNITS, YELLOW SEE Aeia, 

TTY.PUT (12, 1, “Wall Temperature = 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T WALL, 4, 3); 

ETY .PUT Abe ed oe NUMBER OUT, YELLOW, BLACK) ; 


AUS 


ire Uh (2 oo, 
TrIearuL (14, 32; 
Ae EO) eer elie 


YELLOW, BLACK) ; 


PUT (NUMBER OUT, 
iy ePUr (lo, 46, 
cee (16 7).. co 9, 
ire ure (1), 1, 


YELLOW, BLACK) ; 


PUT (NUMBER OUT, 
ERQorUr (177 46, 
eel TL) Do, 
DEY -PULA(lSs;. 1; 


YELLOW, BLACK) ; 


PUT (NUMBER_OUT, 
TEY.PUr (18, 48, 
MEVePUT (18, 59) 
RET (191, 


YELLOW, BLACK) ; 


Ful (NUMBER OUT, 
Pie but (19,5. 43; 
Dior Ul AZO. 2, 


YELLOW, BLACK) ; 
PU 


TiIverur (20, 40, 
Tit eve ie 210 se 5 Ol 
ae Ul tes 2), 
TTY.GET (PAUSE, 


(NUMBER OUT, 


T UNITS, YELLOW, BLACK) ; 
MeCUrO~UCSe ~ bRIGHT WHITE, GREEN) ; 
"Optimum height of the rectangular fin 


HEUGHT 74," 3) 4 

NUMBER OUT, YELLOW, BLACK); 

HEIGHT UNITS, YELLOW, BLACK) ; 
"Optimum width of the rectangular fin 


WIDTH, 47.35); 

NUMBER_OUT, YELLOW, BLACK) ; 
WIDTH UNITS, YELLOW, BLACK) ; 
"Heat transferred away by the fin, q 
Q, 4, 3)3 

NUMBER OUT, YELLOW, BLACK) ; 

Q UNITS, YELLOW, BLACK) ; 

"the fin efficiency 


EPEEECEENGY, 742.35); 
NUMBER OUT, YELLOW, BLACK) ; 
"The temperature at the tip 


fo Uey ayes); 

NUMBER OUT, YELLOW, BLACK); 

T UNITS, YELLOW, BLACK) ; 

" Press any key to continue ", BLUE, 
CHAR) ; 


end RECTANGULAR_GIVEN_VOL; 


procedure RECTANGULAR GIVEN Q(UNITS 


FLOAT ; 


FLOAT; 


FLOAT; 


FLOAT; 


FLOAT; 


FLOAT; 


FLOAT; 


FLOAT ; 


CONVERT DIST 
LENGTH : 


LENGTH UNITS : 
HEIGHT 


HEIGHT UNITS 
WIDTH 


WIDTH UNITS 
H 


H_ UNITS 
K 


K UNITS 
T AMBIENT 


T WALL 


T UNITS 
Q 
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Se); 


Sli! 
slie\ 


in 
alot 


an 
nig! 


alot 
ae 


ach) 


bloat 
in 


INTEGER; 
FLOAT ; 
Out 


STRING; 
Out 


STRING; 
out 


STRING; 
out 


STRING; 
out 


STRING; 
Our 


Gute 


STRING; 
Ort 


OLUNITS 
is 


NUMBER OUT 
STRING. L677, 


CHAR 
PAUSE 


PERIMETER, AREA, M, EFFICIENCY, 
DELTA T, T_TIP 


begin 


Ce ee i ee 


PINGET PICTURES .1NEUR _MSG; 

if (UNITS = 2) then 
GET INPUT(Q, "Heat transferred away by eine Limca, 
© UNITS, 6, 140, 

else 
GET INPUT(Q, “Heat transferred away by the eine, 
OoUNITS, 1.1416 

end if; 

GET INPUT(LENGTH, “Length of the rectangullareiina ec, 
LENGTH UNITS, 2, 15); 

if (UNITS = 2) then 
GET INPUT(H, “Convection heat Cransterwcocterertene: 
HUNG S . bo). lope 
GET INPUT(K, “Thermal conductivity or vinate mule 
BeUNETS 0d ae 

else 


GET INPUT(H, “Convection heat transfer coctti emer 


HOUND IS, 05, L6ie 


GET INPUT(K, "Thermal conductivity of material, k", 


KeUNEDS 4 dle ee 
end lf; 
GET INPUT (T AMBIENT, Ambient Temperature jar, 
TP eWiNGeisy so meena 
GET INPUT(T WALL, “Wall Tempemacure ~ssl6, 
TegUOME Gre S LO) 
TTY.PUT (23, 27, " Press any key €o continue” 7 sbLuE, 
TIY GET “PAUSE, CHAR); 


= Calculations (Assume Tip is Insulated) and Length >> 
WIDTH := CONVERT DIST* (0. 6321/ (H*K)} 
* (((Q/ (LENGTH/CONVERT DIST) )/(T_WALL-T _ AMBIENT) ) **2) ; 
HEIGHT := CONVERT DIST*0.7978 
* (Q/ (LENGTH/CONVERT_DIST) ) / (H* (T_WALL-T_AMBIENT) ); 
PERIMETER := 2.0*LENGTH/CONVERT DIST; 
AREA := (WIDTH/CONVERT _ DIST) * (LENGTH/CONVERT_ Desi e, 
M := SQRT((H*PERIMETER) / (K*AREA) ); 
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in STRING, 


CHARACTER; 


INTEGER; 


FLOAT; 


Say 


Gey: 


h”, 325 


357 


hh", 32e 


Gey 


CYAN); 


Width a= 


PEviee t= Tf WALE-T CAMEIENT, 

Q := K*AREA*M*DELTA T*TANH (M*HEIGHT/CONVERT DIST) ; 

BPE LECLENCGY =— (TANH (M*HETGHT/CONVERT DIST) ) 

/ (M*HEIGHT/CONVERT DIST); 

eee ee es T AMBIENT+ (DELTA_T/COSH (M*HEIGHT/CONVERT DIST) ); 


emer cr cr cr cr cr wr cr cr re tr cr rw ww we ww we we ee ee 


mc cc cr ce cr ce cc wc cr cc cc cc cr rc ce rr cc cr ec cr cc ce cr cc cc ce cw es ee ee ee ee ee 


PINOET PICTURES.OUTPUT MSG, 

[EY sPUT : { S708) SEnpUuLS "; ERIGHT WHITE, GREEN); 

Were wee le ode trans bertreca away by the fin, q =", 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, Q, 4, Sb, 

TTY.PUT ( 7, 48, NUMBER OUT, YELLOW, BLACK) ; 

ieee So, OC UNTIS, XELLOW, BLACK); 

Gir. PUP 8, Ly “Length of the reetangular fin sae te 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, LENGTH, a8 2S); 

TTY.PUT ( 8, 48, NUMBER OUT, YELLOW, BLACK); 

Pewee UT (6,29, LENGTH UNITS, YELLOW, BLACK) ; 

TTY.PUT ( 9, 1, "Convection heat transfer coefficient, h e 
YELLOW, BLACK), 

PUT (NUMBER OUT, H, 4, 3); 

TTY.PUT ( 9, 48, NUMBER OUT, YELLOW, BLACK) ; 

Pee oof, 4 UNITES, YELLOW, BLACK); 

Teen (0,9) iermal Conductivity Of material, k — 
YELLOW, BLACK) ; 

PUT (NUMBER _OUT, K, 4, Se 

TTY.PUT (10, 48, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT (10, 59, K UNITS, YELLOW, BLACK) ; 

TTY.PUT (11, 1, “Ambient Temperature =") 
YELLOW, BLACK); 

PUT S(NUMBERTOUT, “— AMBIENT, 4, 3); 

TTY.PUT (ll, 48, NUMBER OUT, YELLOW, BLACK) ; 

Fiver VOLS. 59. T UNITS, YELLOW, BLACK) ; 

TTY.PUT (12, 1, "Wall Temperature =", 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, T_WALL, 4, 3); 

iy okUm (12, 48, NUMBER OUT, YELLOW, BLACK) ; 

Tier Un (i272 99, fT UNITS, YELLOW, BLACK) ; 

Pieris (14 35," Outputs", BRIGHT WHITE, GREEN) ; 

tee viet iOo, 1, Optimum height of the rectangular fin =", 
YELLOW, BLACK) ; 

PUT (NUMBER TOUT, HEIGHT, 4, 3); 

PoaeeUtor(iG, 46, NUMBER OUT, YELLOW, BLACK) ; 

Miye Put) (16, 59, HEIGHT UNITS, YELLOW, BLACK) ; 

Lori, t,0 Optamum width ol the rectangular fin = 
PELGOwW, BLACK) ; 

PUT (NUMBER OUT, WIDTH, 4, 3); 

iy. PU (17, 48, NUMBER OUT, YELLOW, BLACK) ; 

Meru (is, So, WIDTH _UNITS, YELLOW, BLACK) ; 

iivorUr (le, 1. ‘The £in efficiency = =; 
MibbOW BLACK); 

BUT S(NUMBER OUT, EFFICIENCY, 4, 3); 

iy. PUr (18, 48, NUMBER OUT, YELLOW, BLACK) ; 
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TTY.PUT (19, 1, “The temperature saeeeacmer. 

YELLOW, BLACK): 

PUT (NUMBER OUT) 2 tit) coe 

TTY.PUT (19, 48, NUMBER OUT, YELLOW, BLACK) ; 

TTY.PUT (19, 59, T UNITS, YELLOW, VSEAere 

TTY.PUT (23, 27, " Press any key to continue 7eoevee 10e 
TIYs<GEY (PAUSE, GCHAR); 


end RECTANGULAR GIVEN Q; 


end PINOPRI  IVerE, 
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